Perfect totient numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Fix off-by-one error) |
||
Line 74:
<lang perl6>my \𝜑 = Nil, |(1..*).hyper.map: -> $t { +(^$t).grep: * gcd $t == 1 };
my \𝜑𝜑 = Nil, |(
put "The first twenty Perfect totient numbers:\n", 𝜑𝜑[1..20];</lang>
{{out}}
<pre>The first twenty Perfect totient numbers:
=={{header|Python}}==
|