login
A056194
Characteristic cube divisor of n!: a(n) = A056191(n!).
2
1, 1, 1, 8, 8, 1, 1, 8, 8, 1, 1, 27, 27, 216, 1000, 1000, 1000, 125, 125, 1, 9261, 74088, 74088, 343, 343, 2744, 74088, 216, 216, 125, 125, 1000, 35937000, 4492125, 12326391, 12326391, 12326391, 98611128, 8024024008, 125375375125
OFFSET
1,4
LINKS
FORMULA
a(n) = A056191(A000142(n)). - Amiram Eldar, Sep 06 2020
MATHEMATICA
f[p_, e_] := If[OddQ[e] && e > 1, p^3, 1]; a[n_] := Times @@ f @@@ FactorInteger[n!]; Array[a, 40] (* Amiram Eldar, Sep 06 2020 *)
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 02 2000
STATUS
approved