import Control.Applicative
import Data.List
main :: IO()
main = do
    n <- read <$> getLine
    [d, x] <- map read . words <$> getLine
    list <- sequence (replicate n (read <$> getLine))
    print $ solve list d x

solve :: [Int] -> Int -> Int -> Int
solve list d x = sum (map (num d) list) + x

num :: Int -> Int -> Int
num d a = 1 + div (d-1) a


