login
A123215
Duplicate of A051855.
0
0, 1, 2, 3, 4, 13, 112
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
Sequence in context: A295621 A295755 A089142 * A051855 A058070 A151413
KEYWORD
dead
AUTHOR
Jonathan Vos Post, Oct 05 2006
EXTENSIONS
a(7) from Vincenzo Librandi, Dec 22 2010
STATUS
approved