%I #13 May 10 2022 14:24:11
%S 1,2,4,6,12,30,36,60,180,420,900,1260,4620,6300,13860,44100,55440,
%T 69300,180180,485100,720720,900900,3063060,6306300,12252240,15315300,
%U 58198140,107207100,232792560,290990700,1163962800,2036934900,5354228880,6692786100,22406283900
%N Indices of records in A353898.
%C First differs from A333931 at n=23.
%C The corresponding record values are 1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 27, 36, 48, 54, 72, 81, 96, 108, 144, 162, ... (see the link for more values).
%H Amiram Eldar, <a href="/A353899/b353899.txt">Table of n, a(n) for n = 1..145</a>
%H Amiram Eldar, <a href="/A353899/a353899.txt">Table of n, a(n), A353898(a(n)) for n = 1..145</a>
%t f[p_, e_] := Floor[Log2[e]] + 2; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; seq = {}; sm = 0; Do[s1 = s[n]; If[s1 > sm, sm = s1; AppendTo[seq, n]], {n, 1, 10^6}]; seq
%Y Cf. A333931, A353898.
%Y Subsequence of A025487 and A138302.
%Y Similar sequences: A002182, A002110 (unitary), A037992 (infinitary), A293185, A306736, A307845, A309141, A318278, A322484, A335386.
%K nonn
%O 1,2
%A _Amiram Eldar_, May 10 2022