A364698 Numbers k such that k! + k^2 + k - 1 is prime.
1, 2, 3, 4, 5, 6, 9, 11, 13, 1045
Offset: 1
Examples
For k = 2, 2! + 2^2 + 2 - 1 = 7 is a prime.
Programs
-
Mathematica
Select[Range[1100], PrimeQ[#! + #^2 + # - 1] &] (* Amiram Eldar, Aug 03 2023 *)
-
PARI
for (k=1,10^3,if(ispseudoprime(k! + k^2 + k - 1),print1(k,", ")))
Extensions
a(10) from Amiram Eldar, Aug 03 2023
Comments