import Control.Applicative ((<$>))
import Control.Monad (replicateM)

import Data.List (foldl1')

main :: IO ()
main = do
  n <- readLn
  solve <$> replicateM n readLn >>= print

solve :: [Int] -> Int
solve xs = let g = foldl1' gcd xs in sum $ map (flip div g) xs