OFFSET
0,1
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 10000...34951 (100-digits)
Eric Weisstein's World of Mathematics, Sexy Primes. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- N. J. A. Sloane, Mar 07 2021]
MATHEMATICA
lst = {}; Do[s = 10^(10^n - 1); n = NextPrime[s]; While[! PrimeQ[n + 6], 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