import           Data.List.Split

readIntList :: [Int] -> Int -> IO [Int]
readIntList list count
    | count == 0 =
        return list
    | otherwise = do
        ai <- readLn :: IO Int
        list' <- return $ list ++ [ai]
        readIntList list' (count - 1)

calcNumAteChoco :: Int -> Int -> Int
calcNumAteChoco coefficient numDays =
    sum $ map
        (\day ->
            -- TODO
            if null [True | n <- [0..100], 1 + coefficient * n <= numDays, day == 1 + coefficient * n] then
                0
            else
                1)
        [1..numDays]

main = do
    numPeople <- readLn :: IO Int
    line2 <- getLine
    [numDays, numExtraChocos] <- return $ map (\el -> read el :: Int) (splitOn " " line2)
    coefficients <- readIntList [] numPeople
    print $
        numExtraChocos +
        (sum $ map (\personId -> calcNumAteChoco (coefficients !! personId) numDays) [0..(numPeople - 1)] :: Int)
