A373346 Row sums of A373345.

1, 2, 3, 5, 4, 6, 7, 5, 7, 8, 9, 12, 6, 8, 9, 10, 13, 11, 14, 15, 7, 9, 10, 11, 14, 12, 15, 16, 13, 16, 17, 18, 22, 8, 10, 11, 12, 15, 13, 16, 17, 14, 17, 18, 19, 23, 15, 18, 19, 20, 24, 21, 25, 26, 9, 11, 12, 13, 16, 14, 17, 18, 15, 18, 19, 20, 24, 16, 19, 20, 21, 25

Offset: 1

Author

Paolo Xausa, Jun 01 2024

Keywords

• nonn
• easy
• base

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A373345.

Programs

Mathematica

Join[{1}, Map[Total[PositionIndex[Reverse[IntegerDigits[#, 2]]][1]] &, Select[Range[2, 200, 2], DigitCount[#, 2, 1] <= IntegerExponent[#, 2] + 1 &]]]