A123215 Duplicate of A051855.

0, 1, 2, 3, 4, 13, 112

Offset

1,3

Links

Table of n, a(n) for n=1..7.

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

Adjacent sequences: A123212 A123213 A123214 * A123216 A123217 A123218

Keyword

dead

Author

Jonathan Vos Post, Oct 05 2006

Extensions

a(7) from Vincenzo Librandi, Dec 22 2010

Status

approved