main :: IO ()
main = do
  [n, k] <- fmap (map read . words) getLine :: IO [Int]
  print $ n `div` (k + 1) + 1