%I #4 Nov 29 2019 01:40:39
%S 1,1,2,6,24,120,360,2520,20160,181440,907200,9979200,39916800,
%T 518918400,3632428800,18162144000,290594304000,4940103168000,
%U 44460928512000,844757641728000,4223788208640000,29566517460480000,325231692065280000,7480328917501440000,59842631340011520000
%N Product of largest prime power factors of numbers <= n.
%C Partial products of A034699.
%F A001221(a(n)) = A000720(n).
%t a[n_] := Product[Max[#[[1]]^#[[2]] & /@ FactorInteger@k], {k, 1, n}]; Table[a[n], {n, 0, 24}]
%Y Cf. A000720, A000961, A001221, A034699, A048803, A104350, A210208, A246655, A284521.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Nov 28 2019