Project Euler 517

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

88着。
なんかよくわからなかったが、昨日風呂に入っていたら気が付いた。それを今日コードにした。
まだ、17分かかっているが、速くする方法はわかっている。