import Data.List

main = do
  n <- readLn :: IO Int
  (d:x:_) <- getLine >>= return . map read . words :: IO [Int]
  as <- getContents >>= return . map read . lines :: IO [Int]

  print $ sum (map length [takeWhile (<=d) (iterate (+a) 1) | a <- as]) + x
