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