A288859 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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 *)