A289175 Positions of 0 in A289174; complement of A289176.

1, 2, 4, 5, 9, 10, 12, 16, 17, 19, 20, 22, 26, 27, 28, 29, 31, 32, 37, 40, 41, 43, 45, 46, 47, 48, 50, 54, 58, 62, 63, 65, 66, 67, 68, 70, 71, 72, 74, 75, 80, 85, 90, 94, 95, 96, 97, 99, 100, 101, 103, 104, 107, 108, 110, 111, 115, 116, 119, 125, 131, 136

Offset

1,2

Comments

Conjecture: a(n)/n -> 2.2..., and if m denotes this number, then -1 < m - a(n)/n < m - 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" -> "011"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289174 *)
Flatten[Position[st, 0]]  (* A289175 *)
Flatten[Position[st, 1]]  (* A289176 *)

Crossrefs

Cf. A289174, A289176, A289177.

Sequence in context: A047613 A036795 A307563 * A274693 A024618 A089221

Adjacent sequences: A289172 A289173 A289174 * A289176 A289177 A289178

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved