A289151 Positions of 1 in A289235; complement of A289002.

3, 10, 14, 16, 21, 23, 26, 31, 35, 43, 48, 52, 59, 66, 70, 74, 81, 83, 88, 90, 95, 99, 103, 110, 114, 116, 121, 123, 128, 130, 135, 139, 143, 153, 155, 158, 163, 167, 174, 181, 188, 192, 194, 199, 201, 204, 209, 213, 223, 225, 228, 233, 237, 244, 251, 258

Offset

1,1

Comments

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

Crossrefs

Cf. A289235, A289002.

Sequence in context: A079943 A041865 A357628 * A085776 A289106 A289018

Adjacent sequences: A289148 A289149 A289150 * A289152 A289153 A289154

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved