A288227 Positions of 0 in A288226; complement of A288228.

1, 2, 8, 13, 17, 18, 19, 20, 30, 39, 47, 54, 60, 65, 69, 70, 71, 72, 77, 91, 104, 116, 127, 137, 146, 154, 161, 167, 172, 176, 177, 178, 180, 181, 182, 199, 217, 234, 250, 265, 279, 292, 304, 315, 325, 334, 342, 349, 355, 360, 364, 365, 366, 368, 369, 370

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[50]] - 48   (* A288226 *)
Flatten[Position[st, 0]]  (* A288227 *)
Flatten[Position[st, 1]]  (* A288228 *)

Crossrefs

Cf. A288226, A288228.

Sequence in context: A344152 A030389 A136738 * A247520 A304801 A184519

Adjacent sequences: A288224 A288225 A288226 * A288228 A288229 A288230

Keyword

nonn,easy

Author

Clark Kimberling, Jun 22 2017

Status

approved