import Control.Applicative

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

getInts :: IO [Int]
getInts = map read . words <$> getLine

solve :: [Int] -> Int
solve xs = foldl1 (\acc b -> (b `div` (gcd acc b))* acc) xs