OFFSET
1,3
LINKS
MATHEMATICA
Select[Range[0, 350], PrimeQ[(#!)^4 + 1]&] (* Vincenzo Librandi, Aug 15 2013 *)
PROG
(PARI) isok(n) = isprime(n!^4 + 1); \\ Michel Marcus, Aug 15 2013
(Magma) [n: n in [1..300] | IsPrime(Factorial(n)^4+1)]; // Vincenzo Librandi, Aug 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Walker (ajw01(AT)uow.edu.au), Dec 13 1999
EXTENSIONS
a(9) from Robert Price, Jul 24 2014
Prepended a(1)=0, Robert Price, Sep 01 2014
STATUS
approved