import Data.Int

main = getLine >>= print . solve . (read :: String -> Int64)

solve n = n * 2 - point 0 n

point s n
  | n == 0 = s
  | otherwise = point (s + n) (n `div` 2)