A189575 Partial sums of A189476.

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

Offset

1,3

Links

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

Mathematica

t = Nest[Flatten[# /. {0->{0, 1}, 1->{1, 0, 0}}] &, {0}, 6] (*A189476*)
f[n_] := t[[n]]
s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
Table[s[n], {n, 1, 120}] (*A189575*)
Accumulate[Nest[Flatten[#/.{0->{0, 1}, 1->{1, 0, 0}}]&, {0}, 6]] (* Harvey P. Dale, Nov 11 2013 *)

Crossrefs

Cf. A189476, A189477, A189478.

Sequence in context: A276797 A166872 A283480 * A216503 A216672 A104055

Adjacent sequences: A189572 A189573 A189574 * A189576 A189577 A189578

Keyword

nonn

Author

Clark Kimberling, Apr 23 2011

Status

approved