A139061 Numbers n for which (4+n!)/4 is prime.
4, 5, 6, 13, 21, 25, 32, 40, 61, 97, 147, 324, 325, 348, 369, 1290, 1342, 3167, 6612, 8176, 10990
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[(n! + 4)/4], AppendTo[a, n]], {n, 1, 500}]; a Select[Range[500],PrimeQ[(4+#!)/4]&] (* Harvey P. Dale, Mar 24 2011 *)
-
PARI
for(n=4,1e3,if(ispseudoprime(n!/4+1),print1(n", "))) \\ Charles R Greathouse IV, Jul 15 2011
Extensions
More terms from Serge Batalov, Feb 18 2015
a(19) - a(21) from Robert Price, Jan 10 2017
Comments