OFFSET
1,2
COMMENTS
The corresponding record values are 1, 2, 3, 6, 12, 20, 24, 30, 60, 120, 180, 210, 420, 840, 1120, 1260, 1512, 1680, 2520, 3360, 3780, 5040, 7560, 10080, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..105
Amiram Eldar, Table of n, a(n), A309004(a(n)) for n = 1..105
MATHEMATICA
a[n_] := Multinomial @@ Tally[FactorInteger[n][[;; , 2]]][[;; , 2]]; s = {}; am = 0; Do[a1 = a[n]; If[a1 > am, am = a1; AppendTo[s, n]], {n, 1, 10^6}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 22 2019
STATUS
approved