login
A089678
Numbers n such that n^n + n! + n^2 + 1 is prime.
0
2, 3, 5, 1608
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
Sequence in context: A046474 A056146 A115835 * A072712 A046476 A263429
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, Jan 06 2004
STATUS
approved