A289244 Positions of 1 in A289242; complement of A289243.

3, 5, 8, 11, 16, 18, 23, 25, 28, 33, 37, 39, 42, 45, 50, 54, 56, 61, 63, 66, 69, 74, 76, 81, 83, 88, 90, 93, 98, 102, 104, 107, 110, 115, 117, 122, 124, 127, 132, 136, 138, 141, 146, 148, 151, 156, 158, 163, 165, 170, 172, 175, 180, 182, 185, 190, 194, 196

Offset

1,1

Comments

Conjecture: a(n)/n -> a(n)/n -> 2+sqrt(2), and 0 < 2+sqrt(2)-a(n)/n < = 1 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, A289243.

Sequence in context: A080415 A340318 A175489 * A248879 A014688 A167136

Adjacent sequences: A289241 A289242 A289243 * A289245 A289246 A289247

Keyword

nonn,easy

Author

Clark Kimberling, Jul 01 2017

Status

approved