program ccc
implicit none

integer(8) :: n, i, one, two, gl, gr, g, res
integer(8),allocatable,dimension(:) :: a, l, r

read*, n
allocate(a(n),l(0:n+1),r(0:n+1))
read*, a

l=0
r=0
l(1)=a(1)
r(n)=a(n)

do i=2,n
one=l(i-1)
two=a(i)
call gcd(one,two,gl)
l(i)=gl
end do

do i=n-1,1,-1
one=r(i+1)
two=a(i)
call gcd(one,two,gr)
r(i)=gr
end do

res=0
g=0
do i=1,n
gl=l(i-1)
gr=r(i+1)
if(gl==0) gl=gr
if(gr==0) gr=gl
call gcd(gl,gr,g)
res=max(res,g)
end do

write(*,'(i0)') res

end program

subroutine gcd(a,b,ans)
integer(8) :: a, b, aa, bb, m, ans

aa=max(a,b)
bb=min(a,b)
a=aa
b=bb
m=1

do while(m/=0)
 m=mod(a,b)
 a=b
 b=m
end do
ans=a
end subroutine gcd