A289130 Positions of 1 in A289128; complement of A289129.

3, 6, 9, 10, 13, 15, 17, 20, 21, 23, 24, 26, 27, 30, 32, 34, 36, 38, 40, 42, 45, 46, 48, 49, 51, 52, 54, 55, 57, 58, 60, 61, 63, 64, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 98, 99, 101, 102, 104, 105, 107, 108, 110, 111, 113, 114, 116

Offset

1,1

Comments

Conjecture: a(n)/n -> 5/3..., and -4/3 < 5/3 - a(n)/n < 0 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, A289129.

Sequence in context: A268328 A247575 A338626 * A188299 A187577 A348237

Adjacent sequences: A289127 A289128 A289129 * A289131 A289132 A289133

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved