A288475 Positions of 1 in A288473; complement of A288474.

2, 4, 6, 7, 9, 10, 12, 14, 16, 17, 19, 20, 22, 24, 26, 27, 29, 30, 33, 34, 36, 37, 39, 41, 43, 44, 46, 47, 50, 51, 53, 54, 56, 58, 60, 61, 63, 64, 66, 68, 70, 71, 73, 74, 76, 78, 80, 81, 83, 84, 87, 88, 90, 91, 93, 95, 97, 98, 100, 101, 104, 105, 107, 108

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.74..., 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" -> "0101", "1" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288473 *)
Flatten[Position[st, 0]]  (* A288474 *)
Flatten[Position[st, 1]]  (* A288475 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A288476 conjectured *)

Crossrefs

Cf. A288473, A288474, A288476.

Sequence in context: A189518 A213733 A218608 * A080711 A022301 A050099

Adjacent sequences: A288472 A288473 A288474 * A288476 A288477 A288478

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2017

Status

approved