totient function by o-cn

<?for(;$i=$n<301;print"$v
")for($v=$m=1e4+$n++;$m>=$i+=1;)for($m%$i||$v-=$v/$i;$m%$i<1;)$m/=$i;

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

download

return to the top page