Project Euler, Problem 13 Mathematica