user
A Munchausen number is a natural number *n* the sum of whose digits (in base 10), each raised to the power of itself, equals *n*.

(**Munchausen** is also spelled: **Münchhausen**.)

For instance:    3435 = 33 + 44 + 33 + 55

Task

Find all Munchausen numbers between   **1**   and   **5000**.

Also see
:   * The OEIS entry: A046253
    * The Wikipedia entry: Perfect digit-to-digit invariant, redirected from Munchausen Number
assistant
(formerly Perl 6)

```
sub is_munchausen ( Int $n ) {
    constant @powers = 0, |map { $_ ** $_ }, 1..9;
    $n == @powers[$n.comb].sum;
}
.say if .&is_munchausen for 1..5000;

```

Output:

```
1
3435
```