Perfect totient numbers: Difference between revisions
→{{header|Perl 6}}: Add a Perl 6 example
(Added Go) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 69:
[3 9 15 27 39 81 111 183 243 255 327 363 471 729 2187 2199 3063 4359 4375 5571]
</pre>
=={{header|Perl 6}}==
{{works with|Rakudo|2018.11}}
<lang perl6>my \𝜑 = Nil, |(1..*).hyper.map: -> $t { +(^$t).grep: * gcd $t == 1 };
my \𝜑𝜑 = Nil, |(1..*).grep: -> $p { $p == sum 𝜑[$p], { 𝜑[$_] } … 1 };
put "The first twenty Perfect totient numbers:\n", 𝜑𝜑[1..20];</lang>
{{out}}
<pre>The first twenty Perfect totient numbers:
1 3 9 15 27 39 81 111 183 243 255 327 363 471 729 2187 2199 3063 4359 4375</pre>
=={{header|Python}}==
| |||