A206439 Partial sums of A064692.

1, 1, 1, 1, 2, 2, 3, 3, 5, 6, 7, 7, 7, 7, 8, 8, 9, 9, 11, 12, 13, 13, 13, 13, 14, 14, 15, 15, 17, 18, 19, 19, 19, 19, 20, 20, 21, 21, 23, 24, 26, 27, 28, 29, 31, 32, 34, 35, 38, 40, 41, 41, 41, 41, 42, 42, 43, 43, 45, 46, 48, 49, 50, 51, 53, 54, 56, 57, 60, 62, 63, 63, 63, 63, 64, 64, 65, 65, 67, 68, 71, 73, 75, 77, 80, 82, 85, 87, 91

Offset: 0

Author

N. J. A. Sloane, Feb 27 2012

Keywords

• nonn
• base

Crossrefs

Cf. A064692.

Programs

Mathematica

Table[Sum[DigitCount[x].{0,0,0,1,0,1,0,2,1,1},{x,0,m}],{m,0,88}] (* Zak Seidov, Jul 25 2015 *)