A059013 Odd number of 0's and even number of 1's in binary expansion.

0, 5, 6, 17, 18, 20, 23, 24, 27, 29, 30, 65, 66, 68, 71, 72, 75, 77, 78, 80, 83, 85, 86, 89, 90, 92, 95, 96, 99, 101, 102, 105, 106, 108, 111, 113, 114, 116, 119, 120, 123, 125, 126, 257, 258, 260, 263, 264, 267, 269, 270, 272, 275, 277, 278, 281, 282, 284, 287

Offset: 1

Author

Patrick De Geest, Dec 15 2000

Keywords

• nonn
• easy

Links

• T. D. Noe, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000069, A001969, A059009-A059014.

Programs

Mathematica

Select[Range[0,300], EvenQ[DigitCount[#,2,1]] && OddQ[DigitCount[#,2,0]]&] (* Harvey P. Dale, Jun 13 2013 *)

PARI

is(n)=hammingweight(n)%2==0 && hammingweight(bitneg(n, #binary(n)))%2 \\ Charles R Greathouse IV, Mar 26 2013