main :: IO ()
main = do
  n <- readLn :: IO Integer
  print $ 3*(n`div`2) + (n`mod`2)