A056194 Characteristic cube divisor of n!: a(n) = A056191(n!).

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

Amiram Eldar, Table of n, a(n) for n = 1..4054

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 *)

Crossrefs

Cf. A000142, A055229, A000188, A008833, A007913, A055231, A055230, A055772, A055071, A055204, A055773 A056552, A056195.

Sequence in context: A324686 A155840 A365707 * A200304 A110940 A172352

Adjacent sequences: A056191 A056192 A056193 * A056195 A056196 A056197

Keyword

nonn

Author

Labos Elemer, Aug 02 2000

Status

approved