import Control.Monad

main = do
  n <- readLn
  [d, x] <- map read . words <$> getLine
  as <- replicateM n readLn :: IO [Int]
  print $ solve d as + x

solve d as =
  sum $ map length $ map (takeWhile (<=d)) $ map go as
  where
    go a =
      map (\x -> x*a+1) [0..]
