A289166 Positions of 0 in A289165; complement of A289167.

1, 2, 4, 5, 6, 8, 9, 11, 12, 13, 16, 17, 18, 19, 21, 23, 24, 25, 26, 28, 29, 31, 33, 34, 36, 37, 38, 39, 41, 42, 43, 45, 46, 47, 50, 51, 53, 54, 55, 56, 58, 59, 60, 62, 63, 65, 67, 68, 69, 70, 72, 74, 75, 76, 77, 79, 81, 82, 83, 84, 87, 88, 89, 90, 92, 93

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.42..., 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" -> "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, A289167.

Sequence in context: A288998 A289026 A289113 * A247161 A285360 A099797

Adjacent sequences: A289163 A289164 A289165 * A289167 A289168 A289169

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved