A289012 Positions of 0 in A289011; complement of A289013.

1, 2, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 21, 23, 24, 25, 26, 28, 29, 31, 32, 33, 35, 36, 38, 39, 41, 42, 43, 45, 47, 48, 49, 50, 52, 53, 55, 56, 57, 59, 60, 62, 64, 65, 66, 67, 69, 70, 72, 73, 74, 76, 77, 79, 80, 82, 83, 84, 86, 88, 89, 90, 91, 93

Offset

1,2

Comments

Conjecture: a(n)/n -> sqrt(2), and -1 < sqrt(2) - a(n)/n < -1 + sqrt(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" -> "001", "10" -> "100"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289011 *)
Flatten[Position[st, 0]]  (* A289012 *)
Flatten[Position[st, 1]]  (* A289013 *)

Crossrefs

Cf. A289011, A289013.

Sequence in context: A065853 A048284 A026516 * A358768 A186493 A289072

Adjacent sequences: A289009 A289010 A289011 * A289013 A289014 A289015

Keyword

nonn,easy

Author

Clark Kimberling, Jun 26 2017

Status

approved