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

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