A288480 Positions of 1 in A288478; complement of A288479.

2, 3, 5, 6, 9, 10, 12, 13, 16, 18, 19, 20, 22, 23, 26, 27, 29, 30, 33, 35, 36, 37, 40, 41, 43, 44, 46, 47, 50, 51, 53, 54, 57, 59, 60, 61, 63, 64, 67, 68, 70, 71, 74, 76, 77, 78, 81, 82, 84, 85, 87, 88, 91, 93, 94, 95, 97, 98, 101, 102, 104, 105, 108, 109

Offset

1,1

Comments

Conjecture: a(n)/n - > 1 + sqrt(1/2), and -1 < 1 + sqrt(1/2) - a(n)/n) < 1 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0101", "1" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288478 *)
Flatten[Position[st, 0]]  (* A288479 *)
Flatten[Position[st, 1]]  (* A288480 *)

Crossrefs

Cf. A288478, A288479

Sequence in context: A232527 A188375 A047331 * A344633 A029451 A029455

Adjacent sequences: A288477 A288478 A288479 * A288481 A288482 A288483

Keyword

nonn,easy

Author

Clark Kimberling, Jun 12 2017

Status

approved