euler 48 in erlang
euler 49 in erlang