OFFSET
1,2
COMMENTS
Also numbers k such that (4*10^k-1)/3 is prime.
a(13) > 850000 (from Kamada data). - Robert Price, Oct 19 2014
LINKS
MATHEMATICA
Do[ If[ PrimeQ[ 10^n + 3*(10^n-1)/9], Print[n]], {n, 0, 30470}]
PROG
(PARI) for(k=1, 1500, if(ispseudoprime(4*(10^k-1)/3+1), print1(k, ", "))) \\ Hugo Pfoertner, Jul 22 2020
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Robert G. Wilson v, Aug 10 2000
EXTENSIONS
a(12) from Kamada data by Robert Price, Oct 19 2014
STATUS
approved