A289027 Positions of 1 in A289025; complement of A289026.

3, 7, 10, 14, 16, 20, 23, 26, 30, 33, 37, 41, 43, 47, 50, 54, 58, 61, 65, 68, 72, 75, 78, 82, 84, 88, 91, 95, 98, 102, 106, 109, 113, 115, 119, 122, 126, 130, 132, 136, 139, 142, 146, 149, 153, 157, 160, 164, 166, 170, 173, 177, 180, 184, 188, 191, 195, 198

Offset

1,1

Comments

Conjecture: a(n)/n -> 2 + sqrt(2), and -1 < 2 + sqrt(2) - a(n)/n < -1 + sqrt(2) for n >= 1.

Links

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

Mathematica

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

Crossrefs

Cf. A289025, A289026.

Sequence in context: A363022 A289167 A289114 * A027704 A061289 A288999

Adjacent sequences: A289024 A289025 A289026 * A289028 A289029 A289030

Keyword

nonn,easy

Author

Clark Kimberling, Jun 27 2017

Status

approved