lcm' :: Int -> Int -> Int
lcm' a b = head [ x | let c = max a b, x <- [c,c+1..], mod x a == 0 && mod x b ==0]

main = do
  n <- getLine
  ss <- map read . lines <$> getContents :: IO[Int]
  let result = foldl lcm' 1 ss
  print result