A289073 Positions of 1 in A289071; complement of A289072.

3, 5, 8, 12, 16, 19, 23, 26, 30, 32, 37, 39, 43, 47, 50, 53, 57, 61, 63, 66, 71, 73, 78, 80, 84, 88, 90, 95, 97, 102, 104, 107, 111, 115, 119, 121, 124, 129, 132, 135, 139, 142, 146, 149, 152, 156, 160, 162, 165, 170, 173, 176, 180, 182, 187, 189, 194, 196

Offset

1,1

Comments

Conjecture: a(n)/n -> 2 + sqrt(2), and 0 < 2 + sqrt(2) - a(n)/n < 1 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, A289072.

Sequence in context: A310031 A310032 A310033 * A023660 A161339 A023562

Adjacent sequences: A289070 A289071 A289072 * A289074 A289075 A289076

Keyword

nonn,easy

Author

Clark Kimberling, Jun 27 2017

Status

approved