A089678 Numbers n such that n^n + n! + n^2 + 1 is prime.
2, 3, 5, 1608
Offset: 1
Keywords
Programs
-
Mathematica
v={};Do[If[PrimeQ[n^n + n! + n*n + n/n], v=Append[v, n];Print[v]], {n, 3250}]
-
PARI
is(n)=ispseudoprime(n^n+n!+n^2+1) \\ Charles R Greathouse IV, Jun 13 2017
Comments