euler 243 in erlang