import Control.Monad

main :: IO ()
main = do
    n  <- read <$> getLine
    dx <- (map read) . words <$> getLine
    a  <- (map read) <$> replicateM n getLine
    putStrLn $ show $ solve dx a


solve :: [Int] -> [Int] -> Int
solve (d:x:[]) a =
    foldr (\b c -> (d - 1) `div` b + 1 + c) x a