A289072 Positions of 0 in A289071; complement of A289073.

1, 2, 4, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 20, 21, 22, 24, 25, 27, 28, 29, 31, 33, 34, 35, 36, 38, 40, 41, 42, 44, 45, 46, 48, 49, 51, 52, 54, 55, 56, 58, 59, 60, 62, 64, 65, 67, 68, 69, 70, 72, 74, 75, 76, 77, 79, 81, 82, 83, 85, 86, 87, 89, 91, 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..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" -> "010", "10" -> "100"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289071 *)
Flatten[Position[st, 0]]  (* A289072 *)
Flatten[Position[st, 1]]  (* A289073 *)

Crossrefs

Cf. A289071, A289073.

Sequence in context: A289012 A358768 A186493 * A287379 A285954 A342778

Adjacent sequences: A289069 A289070 A289071 * A289073 A289074 A289075

Keyword

nonn,easy

Author

Clark Kimberling, Jun 27 2017

Status

approved