main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve [x, y] = if  d < e then 2 * f + 1 else 2 * (ceiling d)
    where
        d = sqrt $ fromIntegral (x ^ 2 + y ^ 2)
        e = (fromIntegral f) + (0.5 :: Double)
        f = floor d
        g = (fromIntegral f) + (fromIntegral 1)