A289822 Primes of the form k!3-2187, where k!3 is the triple factorial number (A007661).
1453, 10133, 56053, 1104373, 24342133, 96340213, 2504900213, 3091650738173813, 1668492340691778657530675197813, 116346745870073113470947277571643877742200278220799997813, 10027451552263982384838074729160019340604318179653944179011587407871999999997813
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..19
- Henri & Renaud Lifchitz, PRP Records.Search for n!3-2187.
- Joe McLean, Interesting Sources of Probable Primes
- OpenPFGW Project, Primality Tester
Crossrefs
Cf. A267382.
Programs
-
Mathematica
MultiFactorial[n_, k_] := If[n<1, 1, n*MultiFactorial[n-k, k]]; Select[Table[MultiFactorial[i, 3] - 2187, {i, 13, 100}], PrimeQ[#]&] Select[Table[Times@@Range[n,1,-3]-2187,{n,13,200}],PrimeQ] (* Harvey P. Dale, Jul 15 2023 *)