for n=2to 763c=6
for i=2to n-1if 0=mod(n/i,i)break
c=c-!mod(n,i)next
if!c?i
next