>>434
Haskell

main = print.tnum.filodd.zip list $ map bsum list

tnum = map (\(x,_) -> x)

filodd = filter (\(x,y) -> odd y)

bsum = sum.blist

blist 0 = []
blist n = (n `mod` 2):blist (n `div` 2)

list = [0..99]

実行結果
[1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98]