Munchausen numbers
From Fōrmulæ wiki
This page is the answer to the task Munchausen numbers in the Rosetta Code.
Description (from Rosetta Code)
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 = 3^{3} + 4^{4} + 3^{3} + 5^{5} Task Find all Munchausen numbers between 1 and 5000 Also see:

Program
Results
In bases other than 10
The program requires a small change:
Showing the Munchausen numbers between 1 and 100,000 from bases 2 to 100: