A373854 Row sums of A373556.

1, 5, 6, 7, 12, 8, 13, 14, 9, 14, 15, 16, 22, 10, 15, 16, 17, 23, 18, 24, 25, 11, 16, 17, 18, 24, 19, 25, 26, 20, 26, 27, 28, 35, 12, 17, 18, 19, 25, 20, 26, 27, 21, 27, 28, 29, 36, 22, 28, 29, 30, 37, 31, 38, 39, 13, 18, 19, 20, 26, 21, 27, 28, 22, 28, 29, 30

Offset: 1

Author

Paolo Xausa, Jun 19 2024

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A373346, A373556, A373853.

Programs

Mathematica

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