euler 31 in erlang
euler 25 in erlang