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

Author

Clark Kimberling, Apr 24 2011

Keywords

• nonn

Comments

See A116178.

Crossrefs

Cf. A116178, A189637, A189638.

Programs

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*)