A162455 Primes of the form (n!)^2 + (n!) + 1.
3, 7, 43, 601, 519121
Offset: 1
Keywords
Programs
-
Maple
a := proc (n) if isprime(factorial(n)^2+factorial(n)+1) = true then factorial(n)^2+factorial(n)+1 else end if end proc: seq(a(n), n = 1 .. 76); # Emeric Deutsch, Jul 21 2009
-
Mathematica
Select[Table[n!^2+n!+1,{n,150}],PrimeQ] (* Harvey P. Dale, Jul 23 2009 *) Select[#^2+#+1&/@(Range[150]!),PrimeQ] (* Harvey P. Dale, Nov 24 2024 *)
Comments