A288214 Positions of 0 in A288213; complement of A288215.

1, 2, 4, 5, 8, 9, 11, 12, 15, 18, 19, 21, 22, 25, 26, 28, 29, 32, 35, 36, 39, 42, 43, 45, 46, 49, 50, 52, 53, 56, 59, 60, 62, 63, 66, 67, 69, 70, 73, 76, 77, 80, 83, 84, 86, 87, 90, 93, 94, 97, 100, 101, 103, 104, 107, 108, 110, 111, 114, 117, 118, 120, 121

Offset

1,2

Comments

0 < 2 - 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   (* A288213 *)
Flatten[Position[st, 0]]  (* A288214 *)
Flatten[Position[st, 1]]  (* A288215 *)

Crossrefs

Cf. A288213, A288215.

Sequence in context: A027883 A201818 A047380 * A117121 A101925 A101884

Adjacent sequences: A288211 A288212 A288213 * A288215 A288216 A288217

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved