A309532 Numbers k such that (121^k + 1)/122 is prime.
5, 13, 97, 1499, 11321, 320483
Offset: 1
Crossrefs
Cf. A059055.
Programs
-
Mathematica
Do[p=Prime[n]; If[PrimeQ[(121^p + 1)/122], Print[p]], {n, 1, 1000000}]
-
PARI
is(n)=ispseudoprime((121^n+1)/122)
Comments