A288316 Positions of 1 in A288314; complement of A288315.

4, 11, 15, 19, 25, 32, 39, 43, 50, 54, 58, 64, 68, 72, 78, 85, 89, 93, 99, 106, 113, 117, 124, 131, 138, 142, 149, 153, 157, 163, 170, 177, 181, 188, 192, 196, 202, 206, 210, 216, 223, 227, 231, 237, 241, 245, 251, 255, 259

Offset

1,1

Comments

Conjecture: a(n)/n-> 5.40..., 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" -> "0001", "1" -> "00"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288314 *)
Flatten[Position[st, 0]]  (* A288315 *)
Flatten[Position[st, 1]]  (* A288316 *)

Crossrefs

Cf. A288314, A288315.

Sequence in context: A091436 A032822 A344258 * A003250 A320494 A190509

Adjacent sequences: A288313 A288314 A288315 * A288317 A288318 A288319

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved