Project Euler Q7