A289176 Positions of 1 in A289174; complement of A289175.

3, 6, 7, 8, 11, 13, 14, 15, 18, 21, 23, 24, 25, 30, 33, 34, 35, 36, 38, 39, 42, 44, 49, 51, 52, 53, 55, 56, 57, 59, 60, 61, 64, 69, 73, 76, 77, 78, 79, 81, 82, 83, 84, 86, 87, 88, 89, 91, 92, 93, 98, 102, 105, 106, 109, 112, 113, 114, 117, 118, 120, 121, 122

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.8..., and if m denotes this number, then -2 < 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" -> "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, A289175, A289177.

Sequence in context: A298980 A206586 A347878 * A277851 A047557 A342736

Adjacent sequences: A289173 A289174 A289175 * A289177 A289178 A289179

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved