OFFSET
1,1
COMMENTS
a(20) > 3810. - Jinyuan Wang, Feb 05 2020
a(21) > 12000. - Michael S. Branicky, Jul 03 2024
LINKS
MATHEMATICA
fQ[n_] := PrimeQ[8 n! + 1]; k = 0; lst = {}; While[k < 1501, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst
PROG
(PARI) for(k=1, 999, ispseudoprime(8*k!+1) & print1(k, ", "))
(PFGW) ABC2 8*$a!+1
a: from 1 to 1000 // Jinyuan Wang, Feb 05 2020
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Robert G. Wilson v, Sep 13 2010 and M. F. Hasler, Sep 16 2010
EXTENSIONS
a(16)-a(19) from Jinyuan Wang, Feb 05 2020
a(20) from Michael S. Branicky, Jul 02 2024
STATUS
approved