OFFSET
1,3
COMMENTS
a(13) > 50000. - Michael S. Branicky, Nov 10 2024
EXAMPLE
a(1) = 0; 101 is prime.
a(2) = 1; 1091 is prime.
a(3) = 29; 10999999999999999999999999999991 is prime.
MATHEMATICA
Select[Range[0, 1000], PrimeQ[10*(11*10^#-1)+1]&]
PROG
(PARI) g(n, m=1) = for(x=1, n, y=10*(11*10^x-1)+m; if(ispseudoprime(y), print1(x", ")))
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Cino Hilliard, Oct 12 2006
EXTENSIONS
0 inserted and a(10)-a(12) from Ryan Hitchman, Sep 13 2017
STATUS
approved