A288865 Positions of 0 in A288864; complement of A288866.

1, 3, 8, 12, 13, 14, 16, 25, 33, 40, 46, 51, 55, 56, 57, 58, 64, 77, 89, 100, 110, 119, 127, 134, 140, 145, 149, 150, 151, 152, 153, 171, 188, 204, 219, 233, 246, 258, 269, 279, 288, 296, 303, 309, 314, 318, 319, 320, 321, 322, 328, 333, 337, 338, 339, 352

Offset

1,2

Links

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

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[54]] - 48   (* A288864 *)
Flatten[Position[st, 0]]  (* A288865 *)
Flatten[Position[st, 1]]  (* A288866 *)

Crossrefs

Cf. A288864, A288866.

Sequence in context: A360572 A360937 A361044 * A331069 A161517 A255199

Adjacent sequences: A288862 A288863 A288864 * A288866 A288867 A288868

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved