OFFSET
1,3
COMMENTS
a(21) > 3.75*10^5. - Paul S. Vanderveen, Jul 05 2020
MATHEMATICA
Select[Range[0, 1000], PrimeQ[6*17^# + 1] &] (* Amiram Eldar, Feb 24 2020 *)
PROG
(PARI) for(i=1, 10000, if( ispseudoprime(6*17^i+1), print1(i, ", ")));
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paul S. Vanderveen, Feb 22 2020
EXTENSIONS
a(19) from Paul S. Vanderveen, Mar 09 2020
a(20) from Paul S. Vanderveen, Mar 15 2020
STATUS
approved