do1;read*,k;n=k;do2 i=2,k**.5;j=n/i;do2 while(k/i*i==k);n=n-j;j=0;2 k=k/i;1 print'(i0)',n-n/k+1/k*n;end