Project Euler, Problem 20 Mathematica