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

2, 8, 11, 13, 14, 32, 35, 37, 38, 41, 42, 44, 47, 49, 50, 52, 55, 56, 59, 61, 62, 128, 131, 133, 134, 137, 138, 140, 143, 145, 146, 148, 151, 152, 155, 157, 158, 161, 162, 164, 167, 168, 171, 173, 174, 176, 179, 181, 182, 185, 186, 188, 191, 193, 194, 196, 199

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..10000

Formula

A071295(a(n)) is odd. - Reinhard Zumkeller, Aug 09 2014

Mathematica

Select[Range[200], EvenQ[IntegerLength[#, 2]]&&OddQ[DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Oct 16 2012 *)

Prog

(PARI) is(n)=hammingweight(n)%2 && hammingweight(bitneg(n, #binary(n)))%2 \\ Charles R Greathouse IV, Mar 26 2013
(Haskell)
a059011 n = a059011_list !! (n-1)
a059011_list = filter (odd . a071295) [0..]
-- Reinhard Zumkeller, Aug 09 2014

Crossrefs

Cf. A000069, A001969, A059009-A059014.

Cf. A000120, A023416, A071295.

Sequence in context: A121715 A121714 A064611 * A287569 A216538 A077820

Adjacent sequences: A059008 A059009 A059010 * A059012 A059013 A059014

Keyword

nonn,easy

Author

Patrick De Geest, Dec 15 2000

Status

approved