import Control.Applicative ((<$>))
import Control.Monad (replicateM)

main :: IO ()
main = do
  n <- readLn
  [d, x] <- map read <$> words <$> getLine
  solve d x <$> replicateM n (read <$> getLine) >>= print

solve :: Int -> Int -> [Int] -> Int
solve d x as = x + (sum $ map f as)
  where
    f a = (d - 1) `div` a + 1
