euler 52 in erlang