OFFSET
0,1
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 10000...22857 (100-digits)
Eric Weisstein's World of Mathematics, Cousin Primes
MATHEMATICA
lst = {}; Do[s = 10^(10^n - 1); n = NextPrime[s]; While[! PrimeQ[n + 4], n = NextPrime[n]]; AppendTo[lst, n - s], {n, 0, 2}]; lst
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Arkadiusz Wesolowski, Mar 08 2014
STATUS
approved