for i=1e4to 103e2k=i:n=i:for j=2to i n=n-n/j*!mod(k,j) 1if!mod(k,j)k=k/j:goto 1 next:?n next