OFFSET
1,3
COMMENTS
Tested to 4700. - Robert G. Wilson v, Sep 27 2010
Tested to 5127. - Jinyuan Wang, Feb 03 2020
Tested to 12000. - Michael S. Branicky, Jul 11 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) is(k) = ispseudoprime(8*k!-1); \\ Jinyuan Wang, Feb 03 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Sep 13 2010
EXTENSIONS
a(15)-a(18) from Robert G. Wilson v, Sep 27 2010
a(19) from Michael S. Branicky, May 27 2023
STATUS
approved