6 lines
200 B
Text
6 lines
200 B
Text
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]
|