A287126 Positions of 0 in A287125; complement of A287127.

1, 2, 6, 9, 12, 13, 16, 19, 20, 23, 26, 27, 28, 32, 35, 36, 39, 42, 43, 44, 48, 51, 52, 55, 58, 59, 60, 62, 65, 68, 71, 72, 75, 78, 79, 80, 84, 87, 88, 91, 94, 95, 96, 98, 101, 104, 107, 108, 111, 114, 115, 116, 120, 123, 124, 127, 130, 131, 132, 134, 137

Offset

1,2

Comments

Conjecture: a(n)/n-> 2.22..., and if m denotes this number, then -2 < m - a(n)/n < 2 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" -> "001", "1" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A287125 *)
Flatten[Position[st, 0]]  (* A287126 *)
Flatten[Position[st, 1]]  (* A287127 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A287128 conjectured *)

Crossrefs

Cf. A287125, A287127, A287128.

Sequence in context: A257475 A086939 A174682 * A270095 A153043 A171504

Adjacent sequences: A287123 A287124 A287125 * A287127 A287128 A287129

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved