A287127 Positions of 1 in A287125; complement of A287126.

3, 4, 5, 7, 8, 10, 11, 14, 15, 17, 18, 21, 22, 24, 25, 29, 30, 31, 33, 34, 37, 38, 40, 41, 45, 46, 47, 49, 50, 53, 54, 56, 57, 61, 63, 64, 66, 67, 69, 70, 73, 74, 76, 77, 81, 82, 83, 85, 86, 89, 90, 92, 93, 97, 99, 100, 102, 103, 105, 106, 109, 110, 112, 113

Offset

1,1

Comments

Conjecture: a(n)/n-> 1.81..., and if m denotes this number, then -2 < m - 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" -> "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, A287126, A287128.

Sequence in context: A089230 A171512 A098090 * A174681 A267650 A270102

Adjacent sequences: A287124 A287125 A287126 * A287128 A287129 A287130

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved