main :: IO ()
main = do
  [n,d] <- readParams
  print $ solve n d

readParams :: Read a => IO [a]
readParams = map read . words <$> getLine

solve :: Int -> Int -> Int
solve n d = (n+2*d) `div` (1+2*d)
