OFFSET
1,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..4054
FORMULA
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 02 2000
STATUS
approved