A288259 Positions of 1 in A288257; complement of A288258.

3, 5, 9, 14, 17, 22, 26, 28, 33, 35, 40, 44, 46, 51, 54, 58, 63, 67, 69, 73, 78, 82, 84, 89, 92, 96, 101, 105, 107, 112, 114, 119, 122, 127, 131, 133, 138, 141, 145, 150, 153, 158, 162, 164, 169, 172, 176, 181, 185, 187, 192, 194, 199, 202, 207, 211, 213

Offset

1,1

Comments

Conjecture: a(n)/n-> 3.76..., and if m denotes this number, then -1 < 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" -> "0010", "1" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288257 *)
Flatten[Position[st, 0]]  (* A288258 *)
Flatten[Position[st, 1]]  (* A288259 *)

Crossrefs

Cf. A288257, A288258.

Sequence in context: A321024 A211389 A335193 * A355489 A082874 A266250

Adjacent sequences: A288256 A288257 A288258 * A288260 A288261 A288262

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved