import Control.Applicative
import Control.Monad
import Data.List

main = do
  [n, d] <- map (read::String -> Int) . words <$> getLine
  let width = 2 * d + 1
  print $ if n `mod` width == 0 then n `div` width else n `div` width + 1

  