A289240 Positions of 0 in A289239; complement of A289241.

1, 2, 4, 5, 7, 9, 10, 12, 13, 14, 15, 17, 18, 20, 21, 22, 24, 26, 27, 28, 29, 31, 32, 34, 35, 36, 38, 39, 41, 42, 44, 45, 46, 48, 50, 51, 52, 53, 55, 56, 58, 59, 60, 62, 63, 65, 67, 68, 69, 70, 72, 73, 75, 76, 77, 79, 80, 82, 83, 85, 86, 87, 89, 91, 92, 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" -> "100", "10" -> "010"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289239 *)
Flatten[Position[st, 0]]  (* A289240 *)
Flatten[Position[st, 1]]  (* A289241 *)

Crossrefs

Cf. A289239, A289241.

Sequence in context: A159615 A026463 A243118 * A188019 A189382 A087063

Adjacent sequences: A289237 A289238 A289239 * A289241 A289242 A289243

Keyword

nonn,easy

Author

Clark Kimberling, Jul 01 2017

Status

approved