Project Euler, Problem 10 Mathematica