totient function by 51b(fast)

n=9999;main(l,m,k){for(;n%515;printf("%d\n",m))for(k=m=n+=l=1;k-1;)for(m-=k%++l?0:m/l;k%l<1;)k/=l;}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top