A205796 Numbers n such that 4*17^n - 1 is prime.
1, 9, 33, 69, 427, 1009, 2667
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Table[If[PrimeQ[4*17^n-1],Print[n];n],{n,1,20000}]
-
PARI
is(n)=ispseudoprime(4*17^n-1) \\ Charles R Greathouse IV, Jun 13 2017