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,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

Cf. A309004.

Subsequence of A025487.

Sequence in context: A009031 A009136 A053533 * A324946 A219738 A309308

Adjacent sequences: A309306 A309307 A309308 * A309310 A309311 A309312

Keyword

nonn

Author

Amiram Eldar, Jul 22 2019

Status

approved