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

solve :: Int -> Int -> [Int] -> Int
solve d x as = x + sum [ (d - 1) `div` a + 1 | a <- as ]