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

f p q = maximum [z | z <- [0..p], let w = q, z*q+1 <= p] + 1
