import Control.Monad

main::IO()
main=do
    n <- readLn::IO Int
    [d,x] <- map read . words <$> getLine
    as <- replicateM n $ read <$> getLine ::IO [Int] 
    print $ x + n +  (solve d as)

solve::Int-> [Int] -> Int
solve  d as = sum $ map (\x -> (d - 1) `div` x) as
