A357582 a(n) = A061300(n+1)/A061300(n).
1, 2, 6, 30, 154, 1105, 4788, 20677, 216931, 858925, 7105392, 5546059, 2018025900, 1480452337, 3238556831, 107972737, 18425956230000, 4683032671, 14053747110612300, 160436746661, 33809725025123, 15260431896321667, 1583855315457687090000
Offset: 0
Examples
a(5) = 1105 as A061300(5+1) / A061300(5) = 61261200 / 55440 = 1105.
Links
- Max Alekseyev, Table of n, a(n) for n = 0..29
Crossrefs
Cf. A061300.
Programs
-
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 *)
Extensions
a(11)-a(21) from David A. Corneth, Oct 05 2022
a(22)-a(29) from Max Alekseyev, Sep 05 2023
Comments