A349259 - OEIS

%I #9 Nov 12 2021 22:32:47

%S 1,2,6,8,24,120,128,384,1920,3456,17280,32768,98304,491520,884736,

%T 4423680,30965760,71663616,358318080,2147483648,6442450944,

%U 32212254720,57982058496,289910292480,2029372047360,4696546738176,23482733690880,164379135836160,587068342272000

%N Numbers where A349258 reaches a record value.

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

%H Amiram Eldar, <a href="/A349259/b349259.txt">Table of n, a(n) for n = 1..75</a>

%H Amiram Eldar, <a href="/A349259/a349259.txt">Table of n, a(n), A349258(a(n)) for n = 1..75</a>

%e 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.

%t 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

%Y Cf. A349258.

%Y Subsequence of A025487.

%K nonn

%O 1,2

%A _Amiram Eldar_, Nov 12 2021