A309309 Indices of records in A309004.

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

Author

Amiram Eldar, Jul 22 2019

Keywords

• nonn

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

Crossrefs

Cf. A309004.

Subsequence of A025487.

Programs

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