A288859 Positions of 0 in A288858; complement of A288860.

1, 5, 6, 7, 11, 18, 24, 29, 33, 34, 35, 36, 44, 55, 65, 74, 82, 89, 95, 100, 104, 105, 106, 107, 110, 126, 141, 155, 168, 180, 191, 201, 210, 218, 225, 231, 236, 240, 241, 242, 243, 246, 250, 251, 252, 267, 287, 306, 324, 341, 357, 372, 386, 399, 411, 422

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[52]] - 48   (* A288858 *)
Flatten[Position[st, 0]]  (* A288859 *)
Flatten[Position[st, 1]]  (* A288860 *)

Crossrefs

Cf. A288858, A288860.

Sequence in context: A064615 A300957 A139205 * A307751 A039589 A373854

Adjacent sequences: A288856 A288857 A288858 * A288860 A288861 A288862

Keyword

nonn,easy

Author

Clark Kimberling, Jun 23 2017

Status

approved