login
A261620
Numbers n such that 10^(n-1) - pi(n) is prime.
0
31, 536, 2684, 7795, 8482, 49009, 96339, 236060
OFFSET
1,1
COMMENTS
a(9) > 260843.
MATHEMATICA
Select[Range[50000], PrimeQ[10^(# - 1) - PrimePi[#]] &]
PROG
(PARI) is(n) = ispseudoprime(10^(n-1) - primepi(n)) \\ Michel Marcus, Sep 10 2015
CROSSREFS
Cf. A110068.
Sequence in context: A278558 A022659 A038395 * A196492 A240420 A022755
KEYWORD
more,nonn
AUTHOR
Robert Price, Sep 09 2015
STATUS
approved