A288863 Positions of 1 in A288861; complement of A288862.

2, 3, 5, 6, 7, 11, 12, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 35, 36, 37, 38, 40, 41, 42, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 77, 78, 79, 80, 81, 82, 83

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[53]] - 48   (* A288861 *)
Flatten[Position[st, 0]]  (* A288862 *)
Flatten[Position[st, 1]]  (* A288863 *)

Crossrefs

Cf. A288861, A288862.

Sequence in context: A243058 A348440 A339267 * A121700 A080980 A334067

Adjacent sequences: A288860 A288861 A288862 * A288864 A288865 A288866

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved