Project Euler, Problem 48 Mathematica