import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> getl (map read . words) >>= print

solve :: [Int] -> Int
solve [xp, yp] = let l = ceiling $ sqrt $ fromIntegral $ 4 * xp ^ 2 + 4 * yp ^ 2
                 in f l
  where
    f x = if x ^ 2 > 4 * xp ^ 2 + 4 * yp ^ 2 then x else x + 1

getl :: (String -> a) -> IO a
getl f = f <$> getLine