A289241 Positions of 1 in A289239; complement of A289240.

3, 6, 8, 11, 16, 19, 23, 25, 30, 33, 37, 40, 43, 47, 49, 54, 57, 61, 64, 66, 71, 74, 78, 81, 84, 88, 90, 95, 98, 102, 105, 107, 110, 115, 119, 122, 124, 129, 131, 136, 139, 141, 146, 148, 151, 156, 160, 163, 165, 170, 172, 177, 180, 183, 185, 190, 194, 197

Offset

1,1

Comments

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

Sequence in context: A190430 A188018 A360532 * A234307 A175769 A352211

Adjacent sequences: A289238 A289239 A289240 * A289242 A289243 A289244

Keyword

nonn,easy

Author

Clark Kimberling, Jul 01 2017

Status

approved