OFFSET
1,1
COMMENTS
EXAMPLE
19 is in the sequence because k = 5 => 2*5!!! - 1 = 2*10 - 1 = 19 is prime.
MAPLE
A:= n -> mul(k, k = select(k -> k mod 3 = n mod 3, [$1 .. n])): for p from 0 to 200 do:if type(2*A(p)-1, prime)=true then printf(`%d, `, 2*A(p)-1):else fi:od:
MATHEMATICA
multiFactorial[n_, k_] := If[n < 1, 1, If[n < k + 1, n, n*multiFactorial[n - k, k]]];
Select[Table[2*multiFactorial[n, 3] - 1, {n, 0, 60}], PrimeQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 09 2012
STATUS
approved