module Main where

import           Control.Monad
import           Data.List
import           Data.Ord
import           Data.List.Split
import           Data.Array.IO
import qualified Data.Vector.Unboxed as V

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

  print . (x +) $ f d as
  where
    f d [] = 0
    f d (a:as) = (ceiling (fromIntegral d / fromIntegral a)) + f d as