A331815 Numbers k such that 10^(2*k) - 8*10^(k-1) - 1 is prime.
3, 4, 132, 471, 1935, 4258, 9444
Offset: 1
Examples
3 is a term because 999199 is prime. 4 is a term because 99991999 is prime.
Programs
-
Mathematica
Select[Range[500], PrimeQ[10^(2*#) - 8*10^(#-1) - 1] &] (* Amiram Eldar, Jan 28 2020 *)
-
PARI
(is_A331815(n)=ispseudoprime(100^n-8*10^(n-1)-1)); for(n=1, 9999, is_A331815(n)&&print1(n", "))
Extensions
a(7) from Giovanni Resta, Jan 28 2020
Comments