euler 42 in erlang