Problem #26

This one took me a bit, I could not write a program to get it to work. I eventually looked at the numbers and the lengths of the repeats, then I noticed that the larger the numbers, the larger the repeats, especially the prime numbers. I then used Mathematica to list some primes (Table[Prime[i],{i,100,200}]) and started at the highest prime under 1000. The third-highest prime worked.