A330043 Product of largest prime power factors of numbers <= n.

1, 1, 2, 6, 24, 120, 360, 2520, 20160, 181440, 907200, 9979200, 39916800, 518918400, 3632428800, 18162144000, 290594304000, 4940103168000, 44460928512000, 844757641728000, 4223788208640000, 29566517460480000, 325231692065280000, 7480328917501440000, 59842631340011520000

Offset: 0

Author

Ilya Gutkovskiy, Nov 28 2019

Keywords

• nonn

Comments

Partial products of A034699.

Crossrefs

Cf. A000720, A000961, A001221, A034699, A048803, A104350, A210208, A246655, A284521.

Programs

Mathematica

a[n_] := Product[Max[#[[1]]^#[[2]] & /@ FactorInteger@k], {k, 1, n}]; Table[a[n], {n, 0, 24}]

Formula

A001221(a(n)) = A000720(n).