main :: IO ()
main = do
  s <- getContents
  let nums1 = map read $ words s
  let (n:nums2) = nums1
  let (d:x:as) = nums2
  putStrLn $ show $ solve n d x as

solve :: Int -> Int -> Int -> [Int] -> Int
solve n d x as = x + asum
  where
    asum = sum $ do
      ai <- as
      return $ length  $ filter (\a -> mod (a - 1) ai == 0) [1..d]
  
  