defint a-z
dim s(100)
s(1)=2
s(2)=3
n=2
print 2;3;
for i=4 to 100
    for j=1 to n
        if i mod s(j)=0 then exit for
    next
    if j>n then
       n=n+1
       print i;
       s(n)=i
    endif
next j,i

input x
do while x
   for i=1 to n
       if x<s(n) then exit for
   next
   if x-s(n-1) > s(n)-x then print s(n) else print s(n-1)
   input x
loop