import qualified Data.ByteString.Lazy.Char8 as BS
import Data.Maybe

main :: IO ()
main = do
  n <- (fst . fromJust . BS.readInteger) `fmap` BS.getContents
  let
    f 0 = 0
    f x = x + f (x `div` 2)
  print $ n * 2 - f n