OFFSET
0,3
COMMENTS
Partial products of A034699.
MATHEMATICA
a[n_] := Product[Max[#[[1]]^#[[2]] & /@ FactorInteger@k], {k, 1, n}]; Table[a[n], {n, 0, 24}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 28 2019
STATUS
approved