A267029 Numbers n such that n!!! - 3^9 is prime, where n!3 = n!!! is a triple factorial number (A007661).
16, 17, 34, 38, 49, 62, 74, 97, 125, 137, 146, 178, 188, 235, 664, 863, 916, 1988, 2059, 2837, 5353, 5489, 7483, 9344, 12631, 13796, 17122, 23134, 30409, 33077
Offset: 1
Examples
16!3 - 3^9 = 16*13*10*7*4*1 - 19683 = 58240 - 19683 = 38557 is prime, so 16 is in the sequence.
Links
- Henri & Renaud Lifchitz, PRP Records. Search for n!3-19683.
- Joe McLean, Interesting Sources of Probable Primes
Programs
-
Mathematica
MultiFactorial[n_, k_] := If[n < 1, 1, If[n < k + 1, n, n*MultiFactorial[n - k, k]]]; Select[Range[15, 50000], PrimeQ[MultiFactorial[#, 3] - 3^9] &] Select[Range[12,33100],PrimeQ[Times@@Range[#,1,-3]-19683]&] (* Harvey P. Dale, Jan 25 2021 *)
Comments