A353899 Indices of records in A353898.

1, 2, 4, 6, 12, 30, 36, 60, 180, 420, 900, 1260, 4620, 6300, 13860, 44100, 55440, 69300, 180180, 485100, 720720, 900900, 3063060, 6306300, 12252240, 15315300, 58198140, 107207100, 232792560, 290990700, 1163962800, 2036934900, 5354228880, 6692786100, 22406283900

Offset: 1

Author

Amiram Eldar, May 10 2022

Keywords

• nonn

Comments

First differs from A333931 at n=23.

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).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..145
• Amiram Eldar, Table of n, a(n), A353898(a(n)) for n = 1..145

Crossrefs

Cf. A333931, A353898.

Subsequence of A025487 and A138302.

Similar sequences: A002182, A002110 (unitary), A037992 (infinitary), A293185, A306736, A307845, A309141, A318278, A322484, A335386.

Programs

Mathematica

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