A289167 Positions of 1 in A289165; complement of A289166.

3, 7, 10, 14, 15, 20, 22, 27, 30, 32, 35, 40, 44, 48, 49, 52, 57, 61, 64, 66, 71, 73, 78, 80, 85, 86, 91, 95, 99, 102, 106, 107, 110, 115, 119, 123, 126, 129, 131, 134, 139, 143, 145, 148, 151, 153, 158, 160, 165, 167, 172, 176, 179, 181, 184, 185, 190, 194

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.35..., and if m denotes this number, then -1 < m - 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" -> "100", "10" -> "001"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289165 *)
Flatten[Position[st, 0]]  (* A289166 *)
Flatten[Position[st, 1]]  (* A289167 *)

Crossrefs

Cf. A289165, A289166.

Sequence in context: A319241 A310186 A363022 * A289114 A289027 A027704

Adjacent sequences: A289164 A289165 A289166 * A289168 A289169 A289170

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved