A289018 Positions of 1 in A289016; complement of A289017.

3, 10, 14, 17, 21, 24, 28, 35, 41, 45, 48, 52, 56, 60, 67, 71, 78, 84, 88, 91, 95, 98, 102, 105, 109, 113, 117, 124, 131, 135, 138, 142, 146, 149, 153, 156, 160, 167, 173, 177, 180, 184, 191, 198, 205, 212, 216, 219, 223, 227, 231, 238, 244, 248, 251, 255

Offset

1,1

Comments

Conjecture: a(n)/n -> 4.55..., and if m denotes this numbrer, then -1 < m - a(n)/n < -3 + m for n >= 1.

Links

Table of n, a(n) for n=1..56.

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" -> "000"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289016 *)
Flatten[Position[st, 0]]  (* A289017 *)
Flatten[Position[st, 1]]  (* A289018 *)

Crossrefs

Cf. A289016, A289017.

Sequence in context: A289151 A085776 A289106 * A316672 A288993 A190706

Adjacent sequences: A289015 A289016 A289017 * A289019 A289020 A289021

Keyword

nonn,easy

Author

Clark Kimberling, Jun 26 2017

Status

approved