import Control.Monad

solver::[Integer]->Integer
solver (x:[]) = x
solver (x:y:rest) = solver ((div (x*y) (gcd x y)):rest)

main::IO()
main=do
  nc<-getLine
  let n = read nc
  ss<-forM [1..n] (\_-> getLine)
  let ls = map read ss ::[Integer]
  print (solver ls)