clearset talk offinput to nfind=.f.do while not findn=n+1m=int(sqrt(n))k=0for i=2 to mif int(n/i)=n/ik=k+1exitendifnext iif k=0find=.t.endifenddo? nreturn