A287183 Positions of 0 in A288106; complement of A287184.

1, 2, 4, 5, 6, 7, 8, 10, 11, 12, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 28, 29, 30, 32, 33, 34, 36, 37, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 70, 71, 72, 74, 75, 76, 77, 78, 79, 81

Offset

1,2

Comments

Conjecture: a(n)/n-> 1.22..., 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" -> "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, A287184, A287185.

Sequence in context: A127428 A039187 A001963 * A039140 A249031 A085302

Adjacent sequences: A287180 A287181 A287182 * A287184 A287185 A287186

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved