{-# LANGUAGE BangPatterns #-}
import Control.Applicative((<$>))
import Control.Monad
import Data.Map ((!))
import qualified Data.Map as M
-- import Data.IntMap ((!))
-- import qualified Data.IntMap as M
import qualified Data.List as L
import Data.Maybe (catMaybes)
-- import qualified Data.Char as C
-- import qualified Data.IntSet as I
import Debug.Trace
--------------------------------------------
readInt    = read :: String -> Int
getInt     = readInt <$> getLine
getIntList = map readInt . words <$> getLine
int2bin 0 =  []
int2bin n =  n `mod` 2 : int2bin (n `div` 2)
----------------------------------------------

howManyChoco d a = aux 1 1
  where
    aux day count
      | day + a <= d = aux (day + a) (count + 1)
      | otherwise    = count

main :: IO ()
main = do
  n <- getInt
  [d, x] <- getIntList
  as <- replicateM n getInt
  print $ x + sum (map (howManyChoco d) as)
