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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a059011 n = a059011_list !! (n-1) a059011_list = filter (odd . a071295) [0..] -- Reinhard Zumkeller, Aug 09 2014
-
Mathematica
Select[Range[200],EvenQ[IntegerLength[#,2]]&&OddQ[DigitCount[#,2,1]]&] (* Harvey P. Dale, Oct 16 2012 *)
-
PARI
is(n)=hammingweight(n)%2 && hammingweight(bitneg(n, #binary(n)))%2 \\ Charles R Greathouse IV, Mar 26 2013
Formula
A071295(a(n)) is odd. - Reinhard Zumkeller, Aug 09 2014