cf = Compile[{{n, _Integer}}, Module[{digs, len},
    digs = IntegerDigits[n];
    len = Length[digs];
    Total[digs^len] == n
    ], CompilationTarget -> "C"];
Select[Range[100, 100000000 - 1], cf]