OFFSET
1,2
COMMENTS
a(8) > 1300. - Tyler NeSmith, May 04 2021
a(8) > 3700. - Sean A. Irvine, Sep 19 2023
MATHEMATICA
Do[ If[ PrimeQ[ n^n + n! + n^2 + n + 1 ], Print[n]], {n, 1, 750} ]
PROG
(PARI) is(n)=ispseudoprime(n^n+n!+n^2+n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 05 2001
EXTENSIONS
a(7) from Tyler NeSmith, May 04 2021
STATUS
approved