Totient function: Difference between revisions
no edit summary
m (→{{header|Phix}}: added personal tag) |
No edit summary |
||
Line 1,524:
There are 1229 primes below 10000</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>Do[
tmp = EulerPhi[i];
|