main :: IO()
main = do
    [n,d] <- map read . words <$> getLine
    print $ getsolve n (2 * d + 1)


getsolve :: Int -> Int -> Int
getsolve a b
    | mod a b == 0			= div a b
    | otherwise				= (div a b) + 1