A349259 Numbers where A349258 reaches a record value.

1, 2, 6, 8, 24, 120, 128, 384, 1920, 3456, 17280, 32768, 98304, 491520, 884736, 4423680, 30965760, 71663616, 358318080, 2147483648, 6442450944, 32212254720, 57982058496, 289910292480, 2029372047360, 4696546738176, 23482733690880, 164379135836160, 587068342272000

Offset: 1

Author

Amiram Eldar, Nov 12 2021

Keywords

• nonn

Comments

The corresponding record values are 0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 15, 16, ... (see the link for more values).

Examples

			The first 6 terms of A349258 are 0, 1, 1, 1, 1 and 2, The record values, 0, 1 and 2, occur at 1, 2 and 6, the first 3 terms of this sequence.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..75
• Amiram Eldar, Table of n, a(n), A349258(a(n)) for n = 1..75

Crossrefs

Cf. A349258.

Subsequence of A025487.

Programs

Mathematica

f[p_,e_] := 2^DigitCount[e, 2, 1] - 1; c[1] = 0; c[n_] := Plus @@ f @@@ FactorInteger[n]; cm = -1; s = {}; Do[c1 = c[n]; If[c1 > cm, cm = c1; AppendTo[s, n]], {n, 1, 10^5}]; s