A054633 Partial sums of A030190.

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

Offset: 0

Author

N. J. A. Sloane, Apr 16 2000

Keywords

• nonn
• base

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A030190.

Programs

Mathematica

Accumulate@ Flatten@ IntegerDigits[Range[0, 19], 2] (* Michael De Vlieger, Aug 03 2022 *)