solve :: Int -> Int -> Int -> Int -> Int
solve a b outlets taps
  | outlets >= b = taps
  | otherwise = solve a b (outlets - 1 + a) (taps + 1)

main :: IO ()
main = do
  [a, b] <- map read . words <$> getLine
  print $ solve a b 1 0