A189667 Partial sums of A189664.

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

Offset: 1

Author

Clark Kimberling, Apr 25 2011

Keywords

• nonn

Comments

See A189664.

Crossrefs

Cf. A189664, A189665, A189666.

Programs

Mathematica

(See A189664.)

Formula

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