A189636 Positions of 0 in A116178; complement of A189637.

1, 2, 4, 5, 7, 10, 11, 13, 14, 16, 19, 20, 22, 25, 28, 29, 31, 32, 34, 37, 38, 40, 41, 43, 46, 47, 49, 52, 55, 56, 58, 59, 61, 64, 65, 67, 70, 73, 74, 76, 79, 82, 83, 85, 86, 88, 91, 92, 94, 95, 97, 100, 101, 103, 106, 109, 110, 112, 113, 115, 118, 119, 121, 122, 124, 127, 128, 130, 133, 136, 137, 139, 140, 142, 145, 146, 148, 151, 154, 155, 157, 160, 163, 164, 166, 167

Offset

1,2

Comments

See A116178.

Links

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

Mathematica

t = Nest[Flatten[# /. {0->{0, 0, 1}, 1->{0, 1, 1}}] &, {0}, 5] (*A116178*)
f[n_] := t[[n]]
Flatten[Position[t, 0]] (*A189636*)
Flatten[Position[t, 1]] (*A189637*)
s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
Table[s[n], {n, 1, 120}] (*A189638*)

Crossrefs

Cf. A116178, A189637, A189638.

Sequence in context: A080725 A182337 A024914 * A117741 A019271 A050130

Adjacent sequences: A189633 A189634 A189635 * A189637 A189638 A189639

Keyword

nonn

Author

Clark Kimberling, Apr 24 2011

Status

approved