Perfect totient numbers: Difference between revisions

=={{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>