OFFSET
1,2
EXAMPLE
For n=1, 10^1 = 10. 7, the greatest prime < 10, is a member of the twin prime pair 5,7.
MATHEMATICA
Select[Range[410], PrimeQ[NextPrime[10^#, -1]-2]&] (* The program generates the first four terms of the sequence. *) (* Harvey P. Dale, Jul 26 2024 *)
PROG
(PARI) g(n)=for(x=1, n, y=precprime(10^x); if(ispseudoprime(y-2), print1(x", ")))
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Cino Hilliard, Apr 28 2007
EXTENSIONS
Edited by Ray Chandler, May 12 2007
a(5), a(6) from Donovan Johnson, Feb 21 2008
STATUS
approved