import Control.Monad (replicateM)

ceildiv x y = div (x + y - 1) y

main = do
    n <- readLn
    [d, x] <- map read . words <$> getLine
    a <- replicateM n readLn
    print $ x + sum (map (ceildiv d) a)
