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,4

Comments

See A189668.

Links

Table of n, a(n) for n=1..82.

Formula

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

Mathematica

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

Crossrefs

Cf. A189668, A189669, A189670.

Sequence in context: A098428 A023193 A096605 * A109497 A156078 A123919

Adjacent sequences: A189668 A189669 A189670 * A189672 A189673 A189674

Keyword

nonn

Author

Clark Kimberling, Apr 25 2011

Status

approved