|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[200], EvenQ[IntegerLength[#, 2]]&&OddQ[DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Oct 16 2012 *)
|
|
PROG
|
(Haskell)
a059011 n = a059011_list !! (n-1)
a059011_list = filter (odd . a071295) [0..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|