import Control.Monad

toInt :: String -> Int
toInt = read :: String -> Int

main = do
  n <- fromIntegral . toInt <$> getLine
  [d, x] <- map fromIntegral . map toInt . words <$> getLine
  a <- map fromIntegral . map toInt <$> replicateM n getLine
  print $ floor (x + fromIntegral (sum . map ceiling . map (\y -> d/y) $ a))
