OFFSET
0,1
MATHEMATICA
Flatten[Table[ConstantArray[Mod[n, 2], 2^Floor[n/4]], {n, 0, 20}]] (* Paolo Xausa, Apr 03 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 04 2010
EXTENSIONS
Sequence definition changed for clarity.
STATUS
approved