OFFSET
1,3
COMMENTS
a(30) > 50000.
The first 7 primes associated with this sequence: 3, 3, 5, 7, 29, 937, 229637.
LINKS
C. Caldwell and 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.
MATHEMATICA
MultiFactorial[n_, k_] := If[n < 1, 1, n*MultiFactorial[n - k, k]];
Select[Range[0, 50000], PrimeQ[MultiFactorial[#, 6] + 2] &]
Select[Range[0, 10000], PrimeQ[Times@@Range[#, 1, -6]+2]&] (* The program generates the first 22 terms of the sequence. *) (* Harvey P. Dale, Dec 27 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, May 21 2017
STATUS
approved