A289243 Positions of 0 in A289242; complement of A289244.

1, 2, 4, 6, 7, 9, 10, 12, 13, 14, 15, 17, 19, 20, 21, 22, 24, 26, 27, 29, 30, 31, 32, 34, 35, 36, 38, 40, 41, 43, 44, 46, 47, 48, 49, 51, 52, 53, 55, 57, 58, 59, 60, 62, 64, 65, 67, 68, 70, 71, 72, 73, 75, 77, 78, 79, 80, 82, 84, 85, 86, 87, 89, 91, 92, 94

Offset

1,2

Comments

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

Crossrefs

Cf. A289242, A289244.

Sequence in context: A289075 A111094 A064427 * A183569 A248612 A247000

Adjacent sequences: A289240 A289241 A289242 * A289244 A289245 A289246

Keyword

nonn,easy

Author

Clark Kimberling, Jul 01 2017

Status

approved