OFFSET
1,1
COMMENTS
The prime corresponding to a(4) is a 5156-digit prime.
MATHEMATICA
v={}; Do[If[PrimeQ[n^n + n! + n*n + n/n], v=Append[v, n]; Print[v]], {n, 3250}]
PROG
(PARI) is(n)=ispseudoprime(n^n+n!+n^2+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, Jan 06 2004
STATUS
approved