import Control.Monad

main :: IO ()
main = do
  n <- readLn :: IO Int
  ns <- replicateM n readLn :: IO [Int]
  print $ solve ns

solve :: [Int] -> Int
solve = foldl1 lcm'
  where
    lcm' n m = n * (m `div` gcd n m)
