A288374 Positions of 1 in A288372; complement of A288316.

4, 7, 11, 13, 17, 20, 23, 27, 30, 34, 36, 40, 42, 46, 49, 53, 55, 59, 62, 65, 69, 72, 75, 79, 82, 86, 88, 92, 95, 98, 102, 105, 109, 111, 115, 117, 121, 124, 128, 130, 134, 136, 140, 143, 147, 149, 153, 156, 159, 163, 166, 170, 172, 176, 178, 182, 185, 189

Offset

1,1

Comments

Conjecture: a(n)/n-> 3.24..., and if m denotes this number, then -1 < 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" -> "0001", "1" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288372 *)
Flatten[Position[st, 0]]  (* A288373 *)
Flatten[Position[st, 1]]  (* A288374 *)

Crossrefs

Cf. A288372, A288373.

Sequence in context: A310721 A091855 A191404 * A308199 A310722 A092403

Adjacent sequences: A288371 A288372 A288373 * A288375 A288376 A288377

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved