A309533 Numbers k such that (144^k + 1)/145 is prime.
23, 41, 317, 3371, 45259, 119671
Offset: 1
Crossrefs
Programs
-
Mathematica
Do[p=Prime[n]; If[PrimeQ[(144^p + 1)/145], Print[p]], {n, 1, 1000000}]
-
PARI
is(n)=ispseudoprime((144^n+1)/145)
Comments