OFFSET
1,1
COMMENTS
a(65) > 50000. - Robert Price, Sep 09 2012
LINKS
C. Caldwell, H. Dubner (Eds): The top ten prime numbers: from the unpublished collections of R. Ondrejka (May 2001), Table 21 F, p. 75
Ken Davis, Status of Search for Multifactorial Primes.
Ken Davis, Results for n!7-1.
MATHEMATICA
MultiFactorial[n_, k_] := If[n < 1, 1, n*MultiFactorial[n - k, k]];
Select[Range[0, 1000], PrimeQ[MultiFactorial[#, 7] - 1] & ] (* Robert Price, Apr 19 2019 *)
PROG
(PARI) mf(n, k=7)=prod(i=0, (n-2)\k, n-i*k)
for( n=1, 9999, ispseudoprime(mf(n)-1) & print1(n", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Feb 10 2009
EXTENSIONS
a(43)-a(64) from Robert Price, Sep 09 2012
STATUS
approved