A123215 Duplicate of A051855.

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

Offset: 1

Author

Jonathan Vos Post, Oct 05 2006

Keywords

• dead

Programs

Magma

[ n: n in [0..300] | IsPrime((Factorial(n)^4)+1)] // Vincenzo Librandi, Dec 22 2010

Mathematica

Select[Range[200], PrimeQ[#!^4 + 1] &]

Extensions

a(7) from Vincenzo Librandi, Dec 22 2010