for i=3to 2e3f=1
for j=2to i/2f=f*!!mod(i,j)next
if g*f?i-2,",",i
g=f
i=i+1next