A189709 Partial sums of A189706.

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

Offset: 1

Author

Clark Kimberling, Apr 25 2011

Keywords

• nonn

Comments

See A189706.

Crossrefs

Cf. A189706, A189707, A189708.

Programs

Mathematica

(See A189706.)

Formula

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