A288307 Positions of 0 in A288306; complement of A288308.

1, 2, 4, 7, 8, 11, 14, 15, 16, 18, 21, 24, 25, 28, 31, 32, 33, 35, 36, 39, 40, 43, 46, 47, 50, 53, 54, 55, 57, 60, 63, 64, 67, 70, 71, 72, 74, 75, 78, 79, 80, 82, 85, 88, 89, 90, 92, 95, 98, 99, 102, 105, 106, 107, 109, 112, 115, 116, 119, 122, 123, 124, 126

Offset

1,2

Comments

Conjecture: -1 < 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" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288306 *)
Flatten[Position[st, 0]]  (* A288307 *)
Flatten[Position[st, 1]]  (* A288308 *)

Crossrefs

Cf. A288306, A288308.

Sequence in context: A316326 A074204 A030355 * A286060 A080704 A316094

Adjacent sequences: A288304 A288305 A288306 * A288308 A288309 A288310

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved