f :: [Int]->Int->Int->Int
f [] _ ans=ans
f (x:xs) d ans=let ans1=ans+ (length (takeWhile (<= d) [1,(1+x)..]))
               in f xs d ans1

main = do
       e<-getLine
       e2<-getLine
       e3<-getContents
       let as=map read (lines e3)::[Int]
           n= read e ::Int
           (d:x:[])=map read (words e2)::[Int]
       putStrLn $ show $  (f as d 0)+x