euler 34 in erlang