A288479 Positions of 0 in A288478; complement of A288480.

1, 4, 7, 8, 11, 14, 15, 17, 21, 24, 25, 28, 31, 32, 34, 38, 39, 42, 45, 48, 49, 52, 55, 56, 58, 62, 65, 66, 69, 72, 73, 75, 79, 80, 83, 86, 89, 90, 92, 96, 99, 100, 103, 106, 107, 110, 113, 114, 116, 120, 123, 124, 127, 130, 131, 133, 137, 138, 141, 144, 147

Offset

1,2

Comments

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

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000 [term a(9802) - was 23662 - and following corrected by Georg Fischer, Jun 04 2020]

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[13]] - 48   (* A288478 *)
Flatten[Position[st, 0]]  (* A288479 *)
Flatten[Position[st, 1]]  (* A288480 *)

Crossrefs

Cf. A288478, A288480

Sequence in context: A319926 A128373 A080578 * A047347 A188376 A356088

Adjacent sequences: A288476 A288477 A288478 * A288480 A288481 A288482

Keyword

nonn,easy

Author

Clark Kimberling, Jun 12 2017

Status

approved