A189671 Partial sums of A189668.

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

Offset: 1

Author

Clark Kimberling, Apr 25 2011

Keywords

• nonn

Comments

See A189668.

Crossrefs

Cf. A189668, A189669, A189670.

Programs

Mathematica

(See A189668.)
Accumulate[Nest[Flatten[#/.{0->{0,1,0},1->{1,0,0}}]&,{0},5]] (* Harvey P. Dale, Apr 24 2019 *)

Formula

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