main = do
  n <- read <$> getLine
  (d:x:xs) <- map read . words <$> getLine
  ys <- forM [1..n] $ \t -> do
    read <$> getLine
  putStrLn . show $ solve d x ys

solve :: Int -> Int -> [Int] -> Int
solve d x ys = x + sum $ map (\y -> 1 + (d-1) `div` y) ys