Perfect totient numbers: Difference between revisions
Added 11l
m (→{{header|REXX}}: added whitespace.) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 11:
::* mrob [https://mrob.com/pub/seq/a082897.html list of the first 54]
<br/>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F φ(n)
R sum((1..n).filter(k -> gcd(@n, k) == 1).map(k -> 1))
F perfect_totient(cnt)
[Int] r
L(n0) 1..
V parts = 0
V n = n0
L n != 1
n = φ(n)
parts += n
I parts == n0
r [+]= n0
I r.len == cnt
R r
print(perfect_totient(20))</lang>
{{out}}
<pre>
[3, 9, 15, 27, 39, 81, 111, 183, 243, 255, 327, 363, 471, 729, 2187, 2199, 3063, 4359, 4375, 5571]
</pre>
=={{header|AWK}}==
| |||