OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..12
EXAMPLE
37 is a term because it is prime and is (3!)^2 + 1.
MATHEMATICA
lst={}; Do[s=n!^2; If[PrimeQ[p=s+1], AppendTo[lst, p]], {n, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 27 2008 *)
Select[Table[(n!)^2+1, {n, 1, 5000}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)
PROG
(Magma) [a: n in [1..50] | IsPrime(a) where a is Factorial(n)^2+1]; // Vincenzo Librandi, Dec 08 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Dec 06 1999
EXTENSIONS
More terms from James A. Sellers, Dec 08 1999
STATUS
approved