A189726 Partial sums of A189723.

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

Offset: 1

Author

Clark Kimberling, Apr 26 2011

Keywords

• nonn

Comments

See A189723.

Crossrefs

Cf. A189723, A189724, A189725.

Programs

Mathematica

(See A189723.)

Formula

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