login
A309309
Indices of records in A309004.
2
1, 12, 60, 360, 2520, 27720, 75600, 138600, 831600, 10810800, 75675600, 183783600, 1286485200, 24443218800, 268875406800, 424540116000, 562194032400, 733296564000, 6184134356400, 8066262204000, 30920671782000, 179339896335600, 185524030692000, 2411812398996000
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, ...
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
Cf. A309004.
Subsequence of A025487.
Sequence in context: A009031 A009136 A053533 * A324946 A219738 A309308
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 22 2019
STATUS
approved