Project Euler Solutions in Mathematica