A288999 Positions of 1 in A288997; complement of A288998.

3, 7, 10, 14, 17, 20, 24, 27, 31, 34, 37, 41, 44, 48, 51, 55, 58, 61, 65, 68, 72, 75, 78, 82, 85, 89, 92, 96, 99, 102, 106, 109, 113, 116, 119, 123, 126, 130, 133, 136, 140, 143, 147, 150, 154, 157, 160, 164, 167, 171, 174, 177, 181, 184, 188, 191, 195, 198

Offset

1,1

Comments

Conjecture: a(n)/n -> 2 + sqrt(2), and -1 < 2 + 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 = 10; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "001", "10" -> "001"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A288997 *)
Flatten[Position[st, 0]]  (* A288998 *)
Flatten[Position[st, 1]]  (* A288999 *)

Crossrefs

Cf. A288997, A288998.

Sequence in context: A289027 A027704 A061289 * A310187 A198268 A047355

Adjacent sequences: A288996 A288997 A288998 * A289000 A289001 A289002

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved