A288937 Positions of 0 in A288936; complement of A288938.

1, 2, 4, 5, 8, 11, 15, 20, 26, 33, 41, 50, 60, 71, 83, 96, 110, 125, 141, 158, 176, 195, 215, 236, 258, 281, 305, 330, 356, 383, 411, 440, 470, 501, 533, 566, 600, 635, 671, 708, 746, 785, 825, 866, 908, 951, 995, 1040, 1086, 1133, 1181, 1230, 1280, 1331

Offset: 1

Author

Clark Kimberling, Jun 28 2017

Keywords

• nonn
• easy

Comments

The sequence (a(n)/n) diverges.

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A167499, A288936, A288938.

Programs

Mathematica

z = 11; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "011", "10" -> "011"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A288936 *)
Flatten[Position[st, 0]]  (* A288937 *)
Flatten[Position[st, 1]]  (* A288938 *)