OFFSET
1,3
COMMENTS
a(51) > 10^5.
The first 10 primes associated with this sequence: 3, 3, 5, 7, 23, 47, 233, 587, 3467, 65837.
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[#, 4] + 2] &]
Select[Range[0, 78000], PrimeQ[Times@@Range[#, 1, -4]+2]&] (* Harvey P. Dale, Aug 16 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Mar 10 2017
EXTENSIONS
a(49)-a(50) from Robert Price, Aug 12 2017
STATUS
approved