import Control.Monad

-- 最小公倍数
lcm' a b = head [ x | let c = max a b, x <- [c,c+1..], mod x a == 0 && mod x b ==0]

main = do
  line <- readLn
  args <- replicateM line readLn
  print $ solve args

solve :: [Int] -> Int
solve args = foldl lcm' 1 args