A288601 Positions of 0 in A288600; complement of A288602.

1, 3, 4, 6, 8, 9, 12, 13, 15, 18, 19, 21, 23, 24, 28, 29, 31, 33, 34, 37, 38, 40, 44, 45, 47, 49, 50, 53, 54, 56, 59, 60, 62, 64, 65, 70, 71, 73, 75, 76, 79, 80, 82, 85, 86, 88, 90, 91, 95, 96, 98, 100, 101, 104, 105, 107, 112, 113, 115, 117, 118, 121, 122

Offset

1,2

Comments

Conjecture: a(n)/n->2, and -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" -> "0101", "1" -> "1001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288600 *)
Flatten[Position[st, 0]]  (* A288601 *)
Flatten[Position[st, 1]]  (* A288602 *)

Crossrefs

Cf. A288601, A288602.

Sequence in context: A024324 A255773 A195019 * A192519 A036446 A284469

Adjacent sequences: A288598 A288599 A288600 * A288602 A288603 A288604

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved