implicit none
integer,parameter :: PREC = 16
integer :: n
integer(PREC),allocatable :: t(:)
integer :: i
integer(PREC) :: lcm,p,q,r

read *,n
allocate(t(n))
do i = 1, n
   read *, t(i)
enddo

lcm = t(1)
do i= 2, n
 p = min(lcm,t(i))
 q = max(lcm,t(i))
 r = 1
 do while (r > 0)
    r = mod(q,p)
    q = p
    p = r
 enddo
 lcm = lcm*t(i)/q
enddo

print '(i0)',lcm
end