main = getContents >>= print .  respondent . map read . tail . words

respondent rs = sum $ map (flip div d) rs
 where d = head $ filter (\x -> all (\r -> mod r x == 0) rs) [100,99..1]