OFFSET
0,1
MATHEMATICA
Table[PadRight[{}, 2^Floor[n/8], Mod[n, 2]], {n, 0, 30}]//Flatten (* Harvey P. Dale, Aug 07 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 04 2010
EXTENSIONS
Sequence definition changed for clarity (see A173922).
STATUS
approved