A085147 Numbers k such that k!!!! - 1 is prime.

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).

Links

Table of n, a(n) for n=1..33.

Ken Davis, Status of Search for Multifactorial Primes.

Ken Davis, Results for n!4-1.

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

Adjacent sequences: A085144 A085145 A085146 * A085148 A085149 A085150

Keyword

hard,nonn

Author

Hugo Pfoertner, Jun 25 2003

Extensions

More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008

Status

approved