Project Euler 354(3)

http://projecteuler.net/index.php?section=problems&id=354

やっとできた。45着。
64ビットでなんとかしようとしていたけどうまくいかなくて、そこをあきらめたらあっさりできた。51秒。
もうちょっと速くなって一般化ができたら上げようかな。