{-# LANGUAGE OverloadedStrings #-}

import Control.Monad
import Control.Applicative
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Map.Strict as M
import Data.List

main :: IO()
main = do
    n <- readLn
    [d, x] <- map read . words <$> getLine
    as <- map read <$> replicateM n getLine
    print $ solve n d x as
    
solve :: Int -> Int -> Int -> [Int] -> Int
solve n d x as = foldl' sub x as
    where
        sub :: Int -> Int -> Int
        sub temp a = temp + length (takeWhile (\d' -> d' <= d) $ map (\num -> num * a + 1) [0..])