|
|
A289822
|
|
Primes of the form k!3-2187, where k!3 is the triple factorial number (A007661).
|
|
1
|
|
|
1453, 10133, 56053, 1104373, 24342133, 96340213, 2504900213, 3091650738173813, 1668492340691778657530675197813, 116346745870073113470947277571643877742200278220799997813, 10027451552263982384838074729160019340604318179653944179011587407871999999997813
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|