A288866 Positions of 1 in A288864; complement of A288865.

2, 4, 5, 6, 7, 9, 10, 11, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84

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

Crossrefs

Cf. A288864, A288865.

Sequence in context: A039101 A140102 A376956 * A084437 A037083 A188033

Adjacent sequences: A288863 A288864 A288865 * A288867 A288868 A288869

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved