OFFSET
1,3
MATHEMATICA
Select[Range[0, 2000], PrimeQ[4*7^#+1]&]
PROG
(PARI) is(n)=ispseudoprime(4*7^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jan 14 2012
EXTENSIONS
a(17)-a(26) from Predrag Kurtovic, May 24 2015
STATUS
approved