A288474 Positions of 0 in A288473; complement of A288475.

1, 3, 5, 8, 11, 13, 15, 18, 21, 23, 25, 28, 31, 32, 35, 38, 40, 42, 45, 48, 49, 52, 55, 57, 59, 62, 65, 67, 69, 72, 75, 77, 79, 82, 85, 86, 89, 92, 94, 96, 99, 102, 103, 106, 109, 111, 113, 116, 119, 121, 123, 126, 129, 131, 133, 136, 139, 140, 143, 146, 148

Offset

1,2

Comments

Conjecture: a(n)/n - >2.34..., 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" -> "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, A288475, A288476.

Sequence in context: A326711 A050098 A025512 * A310026 A213732 A247909

Adjacent sequences: A288471 A288472 A288473 * A288475 A288476 A288477

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2017

Status

approved