A204662 Numbers n such that n!8-1 is prime.
3, 4, 6, 8, 10, 12, 14, 16, 18, 22, 28, 30, 42, 48, 58, 68, 80, 86, 92, 108, 110, 112, 130, 198, 220, 230, 322, 432, 460, 478, 686, 706, 714, 842, 950, 1010, 1090, 1314, 1904, 2264, 2804, 3164, 3324, 4740, 4824, 4918, 5086, 5442, 6994, 7898, 8236, 8684, 10088, 13990, 15320, 17570, 18218, 21564, 22198, 22684, 24314, 24780, 25790, 38726
Offset: 1
Links
- Ken Davis, Status of Search for Multifactorial Primes.
- Ken Davis, Results for n!8-1.
Crossrefs
Programs
-
Mathematica
MultiFactorial[n_, k_] := If[n < 1, 1, n*MultiFactorial[n - k, k]]; Select[Range[0, 1000], PrimeQ[MultiFactorial[#, 8] - 1] & ] (* Robert Price, Apr 19 2019 *)
-
PARI
for(n=0,9999,isprime(prod(i=0,(n-2)\8,n-8*i)-1)& print1(n","))
Extensions
a(39)-a(64) from Robert Price, Aug 15 2012
Comments