OFFSET
1,2
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
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 10 2022
STATUS
approved