A288228 Positions of 1 in A288226; complement of A288227.

3, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85

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[50]] - 48   (* A288226 *)
Flatten[Position[st, 0]]  (* A288227 *)
Flatten[Position[st, 1]]  (* A288228 *)

Crossrefs

Cf. A288226, A288227.

Sequence in context: A247914 A184518 A304802 * A002328 A039133 A113777

Adjacent sequences: A288225 A288226 A288227 * A288229 A288230 A288231

Keyword

nonn,easy

Author

Clark Kimberling, Jun 22 2017

Status

approved