A139063 Numbers k for which (6+k!)/6 is prime.
3, 4, 10, 11, 13, 14, 17, 21, 82, 115, 165, 167, 173, 174, 208, 225, 380, 655, 1187, 2000, 2568, 3010, 4542, 8750, 12257, 12601, 24083
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[(n! + 6)/6], AppendTo[a, n]], {n, 1, 500}]; a
-
PARI
for(k=3,1e3,if(ispseudoprime(k!/6+1),print1(k", "))) \\ Charles R Greathouse IV, Jul 15 2011
Extensions
a(18) and a(19) from Robert Israel, May 19 2014
More terms from Serge Batalov, Feb 18 2015
a(24)-a(27) from Robert Price, Nov 20 2016
Comments