OFFSET
1,2
MATHEMATICA
Table[If[PrimeQ[4*11^n-1], Print[n]; n], {n, 1, 20000}]
PROG
(PARI) is(n)=ispseudoprime(4*11^n-1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jan 28 2012
EXTENSIONS
a(10)-a(11) from Dmitry Khomovsky, Aug 30 2017
STATUS
approved