OFFSET
1,1
COMMENTS
There is no further term up to 10800.
a(11) > 10^5. - Robert Price, Feb 26 2015
MATHEMATICA
Do[If[PrimeQ[10^n - Prime[n]], Print[n]], {n, 10800}]
PROG
(PARI) is(n)=ispseudoprime(10^n-prime(n)) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jul 12 2005
EXTENSIONS
a(8)-a(10) from Robert Price, Feb 26 2015
STATUS
approved
