user
Generate and show here, the first twenty Perfect totient numbers.

Related task
:   :   * Totient function

Also see
:   :   * the OEIS entry for   perfect totient numbers.
        * mrob   list of the first 54
assistant
(formerly Perl 6)

**Works with**: Rakudo version 2018.11

```
use Prime::Factor;

my \𝜑 = lazy 0, |(1..*).hyper.map: -> \t { t * [*] t.&prime-factors.squish.map: 1 - 1/* }
my \𝜑𝜑 = Nil, |(3, *+2 … *).grep: -> \p { p == sum 𝜑[p], { 𝜑[$_] } … 1 };

put "The first twenty Perfect totient numbers:\n",  𝜑𝜑[1..20];

```

Output:

```
The first twenty Perfect totient numbers:
3 9 15 27 39 81 111 183 243 255 327 363 471 729 2187 2199 3063 4359 4375 5571
```