import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  n <- (read::String -> Int) <$> getLine
  arr <- forM [1..n] (\i -> (read::String -> Integer) <$> getLine)
  print $ foldl (\acc num -> let g = calcGcd acc num in acc * num `div` g) (arr !! 0) arr
  

calcGcd::Integer -> Integer -> Integer
calcGcd a b = if b == 0 then a else calcGcd b (a `mod` b)
