Project Euler 511

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

27着。
これは簡単だった。ただし、90秒ほどかかっている。速くする方法も思いついていない。