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

Comments

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

Links

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

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

Crossrefs

Cf. A167499, A288936, A288938.

Sequence in context: A060773 A330440 A222044 * A327063 A324926 A175106

Adjacent sequences: A288934 A288935 A288936 * A288938 A288939 A288940

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved