A079112 Numbers in binary representation with odd length.
0, 1, 100, 101, 110, 111, 10000, 10001, 10010, 10011, 10100, 10101, 10110, 10111, 11000, 11001, 11010, 11011, 11100, 11101, 11110, 11111, 1000000, 1000001, 1000010, 1000011, 1000100, 1000101, 1000110, 1000111, 1001000, 1001001
Offset: 0
Programs
-
Mathematica
Join[{0},Select[FromDigits/@Tuples[{0,1},7],OddQ[IntegerLength[#]]&]] (* Harvey P. Dale, Sep 04 2021 *)
Comments