OFFSET
1,3
MATHEMATICA
Select[Range[200], PrimeQ[#!^4 + 1] &]
PROG
(Magma)[ n: n in [0..300] | IsPrime((Factorial(n)^4)+1)] // Vincenzo Librandi, Dec 22 2010
CROSSREFS
KEYWORD
dead
AUTHOR
Jonathan Vos Post, Oct 05 2006
EXTENSIONS
a(7) from Vincenzo Librandi, Dec 22 2010
STATUS
approved