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