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

Author

Clark Kimberling, Jun 25 2017

Keywords

• nonn
• easy

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

Crossrefs

Cf. A288997, A288998.

Programs

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 *)

Formula

a(n) = 2n+round(n*sqrt(2)) (conjectured). - Chai Wah Wu, Feb 06 2025