A189631 Partial sums of A189628.

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

Offset: 1

Author

Clark Kimberling, Apr 24 2011

Keywords

• nonn

Comments

See A189628.

Crossrefs

Cf. A189628, A189629, A189630.

Programs

Mathematica

(See A189638.)

Formula

s(n)=[n/3]+s([(n+1)/3])-s([n/3]), where s(0)=0.