Project Euler, Problem 9 Mathematica