close
login
A059011
Odd number of 0's and 1's in binary expansion.
3
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
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
KEYWORD
nonn,easy
AUTHOR
Patrick De Geest, Dec 15 2000
STATUS
approved