A110066 Numbers n such that 10^n - prime(n) is prime.
2, 5, 40, 69, 586, 927, 1393, 11411, 32741, 79040
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[10^n - Prime[n]], Print[n]], {n, 10800}]
-
PARI
is(n)=ispseudoprime(10^n-prime(n)) \\ Charles R Greathouse IV, May 15 2013
Extensions
a(8)-a(10) from Robert Price, Feb 26 2015
Comments