import Control.Monad
import Control.Applicative


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

solve :: Int -> [Int] -> Int
solve _ [] = 0
solve 0 _ = 0
solve d (b:bs) = let m = div (d-1)  b +1 in m + solve d bs