|
|
|
|
1, 2, 6, 30, 154, 1105, 4788, 20677, 216931, 858925, 7105392, 5546059, 2018025900, 1480452337, 3238556831, 107972737, 18425956230000, 4683032671, 14053747110612300, 160436746661, 33809725025123, 15260431896321667, 1583855315457687090000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
It is not known if the ratios A061300(n+1)/A061300(n) are always integer, but so far (for the listed terms) they are. - Max Alekseyev, Sep 05 2023
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
A061300[n_Integer?NonNegative] := A061300[n] = Module[{fact = n!, num = 1}, Monitor[While[Length@Divisors@num != fact, num++]; num, {n, num}]]; a[n_] := A061300[n + 1]/A061300[n]; Table[a[n], {n, 0, 4}] (* Robert P. P. McKone, Sep 07 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|