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
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
KEYWORD
hard,nonn
AUTHOR
Hugo Pfoertner, Jun 25 2003
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
STATUS
approved