dim a(99)
for i=2to 541f=1
for j=2to i-1f=f*!!mod(i,j)next
a(x)=i
x=x+f
next
do?a(a(b+1)-a(b)-1)
b=b+1loop