import qualified Data.ByteString.Char8 as BC

solve :: Int -> Int -> Int
solve a b
    | rest <= 0 = 1
    | otherwise = 1 + (ceiling $ (fromIntegral rest) / (fromIntegral $ a - 1))
    where
        rest = b - a

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