main = do
  getLine
  [d,x] <- fmap (map read . words) getLine
  as <- fmap (map read . words) getContents
  print (solve d x as)

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