15 lines
353 B
AppleScript
15 lines
353 B
AppleScript
|
set MunchhausenNumbers to {}
|
||
|
|
repeat with i from 1 to 5000
|
||
|
|
if (i > 0) then
|
||
|
|
set n to i
|
||
|
|
set s to 0
|
||
|
|
repeat until (n is 0)
|
||
|
|
tell n mod 10 to set s to s + it ^ it
|
||
|
|
set n to n div 10
|
||
|
|
end repeat
|
||
|
|
if (s = i) then set end of MunchhausenNumbers to i
|
||
|
|
end if
|
||
|
|
end repeat
|
||
|
|
|
||
|
|
return MunchhausenNumbers
|