import Control.Monad

main = do
    people <- readLn
    [day,left] <- map read . words <$> getLine :: IO [Int]
    a <- replicateM people readLn :: IO[Int]
    print (left + people + (sum $ map (\x->div day x + if mod day x ==0 then -1 else 0) a))
