program aaa
implicit none
integer(8) :: n,t(100),time
integer(8) :: i,j,k

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

time = t(1)

if(n==1) then
	continue
else
	do i=2,n
		time = time / gcm(time,t(i)) * t(i) 
	enddo
endif

write(*,*) time


contains
	integer(8) function gcm(x,y)

		implicit none
		integer(8) :: x,y,r,tmp

		if(x < y) then
			tmp = x
			x = y
			y = tmp 
		endif

		r = mod(x,y)

		do while (r .ne. 0) 
			x = y
			y = r
			r = mod(x,y)
		enddo
		
		gcm = y

	end function

end program