A288856 Positions of 0 in A288855; complement of A288857.

2, 3, 4, 9, 15, 20, 24, 25, 26, 27, 36, 46, 55, 63, 70, 76, 81, 85, 86, 87, 88, 92, 107, 121, 134, 146, 157, 167, 176, 184, 191, 197, 202, 206, 207, 208, 209, 213, 214, 215, 231, 250, 268, 285, 301, 316, 330, 343, 355, 366, 376, 385, 393, 400, 406, 411, 415

Offset

1,1

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[51]] - 48   (* A288855 *)
Flatten[Position[st, 0]]  (* A288856 *)
Flatten[Position[st, 1]]  (* A288857 *)

Crossrefs

Cf. A288855, A288857.

Sequence in context: A341824 A122974 A032982 * A033076 A121431 A084080

Adjacent sequences: A288853 A288854 A288855 * A288857 A288858 A288859

Keyword

nonn,easy

Author

Clark Kimberling, Jun 23 2017

Status

approved