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