OFFSET
1,1
COMMENTS
a(66) > 100000.
The first 12 primes associated with this sequence: 2, 3, 5, 7, 11, 13, 349, 433, 1579, 10723, 14389, 71143.
k![14](0..20) = 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 32, 51, 72, 95, 120.
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[2, 100000], PrimeQ[MultiFactorial[#, 14] - 2] &]
PROG
(PARI) M(n, k) = if(n<1, 1, n*M(n - k, k));
isok(n) = isprime(M(n, 14) - 2); \\ Indranil Ghosh, Mar 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Mar 22 2017
STATUS
approved