%I #13 Jul 27 2019 14:49:24
%S 1,12,60,360,2520,27720,75600,138600,831600,10810800,75675600,
%T 183783600,1286485200,24443218800,268875406800,424540116000,
%U 562194032400,733296564000,6184134356400,8066262204000,30920671782000,179339896335600,185524030692000,2411812398996000
%N Indices of records in A309004.
%C 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, ...
%H Amiram Eldar, <a href="/A309309/b309309.txt">Table of n, a(n) for n = 1..105</a>
%H Amiram Eldar, <a href="/A309309/a309309.txt">Table of n, a(n), A309004(a(n)) for n = 1..105</a>
%t 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
%Y Cf. A309004.
%Y Subsequence of A025487.
%K nonn
%O 1,2
%A _Amiram Eldar_, Jul 22 2019