OFFSET
0,3
MATHEMATICA
Join[{0}, Select[FromDigits/@Tuples[{0, 1}, 7], OddQ[IntegerLength[#]]&]] (* Harvey P. Dale, Sep 04 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 25 2002
STATUS
approved