A289017 Positions of 0 in A289016; complement of A289018.

1, 2, 4, 5, 6, 7, 8, 9, 11, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 42, 43, 44, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 64, 65, 66, 68, 69, 70, 72, 73, 74, 75, 76, 77, 79, 80, 81, 82, 83, 85

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.28..., and if m denotes this number, then -1 < m - a(n)/n < -1 + m 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" -> "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, A289018.

Sequence in context: A288168 A085007 A288992 * A289105 A289002 A039114

Adjacent sequences: A289014 A289015 A289016 * A289018 A289019 A289020

Keyword

nonn,easy

Author

Clark Kimberling, Jun 26 2017

Status

approved