A189660 Partial sums of A064990.

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

Offset: 1

Author

Clark Kimberling, Apr 25 2011

Keywords

• nonn

Comments

See A064990.

Crossrefs

Cf. A064990, A189658, A189659.

Programs

Mathematica

(See A064990.)

Formula

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