login
A085147
Numbers k such that k!!!! - 1 is prime.
2
3, 4, 6, 8, 12, 16, 22, 24, 54, 56, 98, 152, 156, 176, 256, 454, 460, 720, 750, 770, 800, 1442, 2846, 5920, 7066, 12778, 19978, 22726, 25938, 27780, 36072, 39746, 48244
OFFSET
1,1
COMMENTS
The search for multifactorial primes started by Ray Ballinger is now continued by a team of volunteers on the website of Ken Davis (see link).
MATHEMATICA
MultiFactorial[n_, k_] := If[n < 1, 1, n*MultiFactorial[n - k, k]];
Select[Range[0, 1000], PrimeQ[MultiFactorial[#, 4] - 1] & ] (* Robert Price, Apr 19 2019 *)
Select[Range[48300], PrimeQ[Times@@Range[#, 1, -4]-1]&] (* Harvey P. Dale, Aug 11 2020 *)
CROSSREFS
Cf. A007662 (quadruple factorials), A085146.
Sequence in context: A147606 A279083 A298805 * A367398 A298810 A298811
KEYWORD
hard,nonn
AUTHOR
Hugo Pfoertner, Jun 25 2003
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
STATUS
approved