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,2

Links

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

Mathematica

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

Crossrefs

Cf. A373345.

Sequence in context: A329402 A339263 A179475 * A262564 A222240 A309151

Adjacent sequences: A373343 A373344 A373345 * A373347 A373348 A373349

Keyword

nonn,easy,base

Author

Paolo Xausa, Jun 01 2024

Status

approved