main :: IO()
main = do
  [n, d] <- map read . words <$> getLine
  print $ slv n d
 
slv :: Integer -> Integer -> Integer
slv n d | n `mod` (2*d+1) == 0 = n `div` (2*d+1)
        | otherwise = n `div` (2*d+1) + 1