totient function by 51b

m;n=9999;f(a,b){b?f(b,a%b):a-1||m++;}main(l){for(;n++%515;m=!printf("%d\n",m))for(l=n;l;)f(n,l--);}

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

download

return top