Project Euler, Problem 100, Mathematica Solve[]