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,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000069, A001969, A059009-A059014.

Sequence in context: A185508 A358091 A257338 * A355321 A327102 A191144

Adjacent sequences: A059010 A059011 A059012 * A059014 A059015 A059016

Keyword

nonn,easy

Author

Patrick De Geest, Dec 15 2000

Status

approved