A289129 Positions of 0 in A289128; complement of A289130.

1, 2, 4, 5, 7, 8, 11, 12, 14, 16, 18, 19, 22, 25, 28, 29, 31, 33, 35, 37, 39, 41, 43, 44, 47, 50, 53, 56, 59, 62, 65, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 97, 100, 103, 106, 109, 112, 115, 118, 121, 124, 127, 130, 133, 136, 139

Offset

1,2

Comments

Conjecture: a(n)/n -> 5/2..., and 0 < 5/2 - a(n)/n < 3/2 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

z = 11; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "011", "10" -> "010"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289128 *)
Flatten[Position[st, 0]]  (* A289129 *)
Flatten[Position[st, 1]]  (* A289130 *)

Crossrefs

Cf. A289128, A289130.

Sequence in context: A274427 A187576 A188298 * A368364 A290334 A206285

Adjacent sequences: A289126 A289127 A289128 * A289130 A289131 A289132

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved