A288204 Positions of 0 in A288203; complement of A288205.

1, 2, 4, 5, 7, 8, 9, 11, 12, 14, 15, 16, 18, 19, 20, 22, 23, 24, 26, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 60, 61, 62, 64, 65, 66, 68, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86, 88, 89

Offset

1,2

Comments

-1 < 4/3 - a(n)/n < 1 for n >= 1.

Links

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

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "1" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288203 *)
Flatten[Position[st, 0]]  (* A288204 *)
Flatten[Position[st, 1]]  (* A288205 *)

Crossrefs

Cf. A288203, A288205.

Sequence in context: A254058 A346128 A276220 * A047381 A286428 A329996

Adjacent sequences: A288201 A288202 A288203 * A288205 A288206 A288207

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved