A289026 Positions of 0 in A289025; complement of A289027.

1, 2, 4, 5, 6, 8, 9, 11, 12, 13, 15, 17, 18, 19, 21, 22, 24, 25, 27, 28, 29, 31, 32, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 51, 52, 53, 55, 56, 57, 59, 60, 62, 63, 64, 66, 67, 69, 70, 71, 73, 74, 76, 77, 79, 80, 81, 83, 85, 86, 87, 89, 90, 92, 93

Offset

1,2

Comments

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

Links

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

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, A289027.

Sequence in context: A247964 A047317 A288998 * A289113 A289166 A247161

Adjacent sequences: A289023 A289024 A289025 * A289027 A289028 A289029

Keyword

nonn,easy

Author

Clark Kimberling, Jun 27 2017

Status

approved