A287184 Positions of 1 in A288106; complement of A287183.

3, 9, 13, 20, 27, 31, 35, 41, 45, 49, 55, 62, 69, 73, 80, 87, 94, 98, 105, 109, 113, 119, 123, 127, 133, 140, 144, 148, 154, 158, 162, 168, 172, 176, 182, 189, 193, 197, 203, 210, 217, 221, 228, 235, 242, 246, 253, 257, 261, 267, 274, 281, 285, 292, 299, 306

Offset

1,1

Comments

Conjecture: a(n)/n-> 5.42..., and if m denotes this number, then -1 < m - a(n)/n < 3 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" -> "00"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288106 *)
Flatten[Position[st, 0]]  (* A287183 *)
Flatten[Position[st, 1]]  (* A287184 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A287185 conjectured *)

Crossrefs

Cf. A288106, A287183, A287185.

Sequence in context: A190745 A075318 A171101 * A197569 A118570 A212244

Adjacent sequences: A287181 A287182 A287183 * A287185 A287186 A287187

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved