A189730 Partial sums of A189727.

0, 1, 2, 3, 4, 4, 5, 6, 6, 7, 8, 8, 9, 10, 10, 10, 11, 12, 13, 14, 14, 15, 16, 16, 16, 17, 18, 19, 20, 20, 21, 22, 22, 22, 23, 24, 25, 26, 26, 27, 28, 28, 28, 29, 30, 30, 31, 32, 33, 34, 34, 35, 36, 36, 37, 38, 38, 39, 40, 40, 40, 41, 42, 43, 44, 44, 45, 46, 46, 46, 47, 48, 48, 49, 50, 51, 52, 52, 53, 54, 54

Offset: 1

Author

Clark Kimberling, Apr 26 2011

Keywords

• nonn

Comments

See A189727.

Crossrefs

Cf. A189727, A189728, A189729.

Programs

Mathematica

(See A189727.)

Formula

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