PROG
(MAGMAMagma) [a: n in [1..50] | IsPrime(a) where a is Factorial(n)^2+1]; // Vincenzo Librandi, Dec 08 2011
The OEIS is supported by the many generous donors to the OEIS Foundation.
(MAGMAMagma) [a: n in [1..50] | IsPrime(a) where a is Factorial(n)^2+1]; // Vincenzo Librandi, Dec 08 2011
proposed
approved
editing
proposed
Primes of the form (n!)^2 + 1.
37 is a term because it is prime and is of the form (3!)^2 + 1.
lst={}; Do[s=n!^2; If[PrimeQ[p=s+1], AppendTo[lst, p]], {n, 5!}]; lst [From _(* _Vladimir Joseph Stephan Orlovsky_, Sep 27 2008] *)
(MAGMA) [a: n in [1..50] | IsPrime(a) where a is Factorial(n)^2+1]; // _Vincenzo Librandi, _, Dec 08 2011
The next term is too large to include.
approved
editing
Select[Table[(n!)^2+1, {n, 1, 5000}], PrimeQ] (* _Vincenzo Librandi, _, Dec 08 2011 *)
lst={}; Do[s=n!^2; If[PrimeQ[p=s+1], AppendTo[lst, p]], {n, 5!}]; lst [From _Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Sep 27 2008]
More terms from _James A. Sellers (sellersj(AT)math.psu.edu), _, Dec 08 1999
_G. L. Honaker, Jr. (honak3r(AT)gmail.com), _, Dec 06 1999
proposed
approved
editing
proposed