{-# LANGUAGE BangPatterns #-}

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

solve :: Int -> Int -> Int
solve a b = go 0 1
  where
    go !acc o
      | o >= b    = acc
      | otherwise = go (acc + 1) (o + a - 1)
