A288862 Positions of 0 in A288861; complement of A288863.

1, 4, 8, 9, 10, 13, 21, 28, 34, 39, 43, 44, 45, 46, 53, 65, 76, 86, 95, 103, 110, 116, 121, 125, 126, 127, 128, 130, 147, 163, 178, 192, 205, 217, 228, 238, 247, 255, 262, 268, 273, 277, 278, 279, 280, 282, 287, 291, 292, 293, 307, 328, 348, 367, 385, 402

Offset

1,2

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" -> "1000", "10" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[53]] - 48   (* A288861 *)
Flatten[Position[st, 0]]  (* A288862 *)
Flatten[Position[st, 1]]  (* A288863 *)

Crossrefs

Cf. A288861, A288863.

Sequence in context: A158582 A144754 A080970 * A274584 A210998 A205524

Adjacent sequences: A288859 A288860 A288861 * A288863 A288864 A288865

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved