|
##
|
|
function disariums: sequence of integer;
|
|
begin
|
|
var n := 0;
|
|
while true do
|
|
begin
|
|
var sum := 0.0;
|
|
foreach var x in n.ToString.ToCharArray index i do
|
|
sum := sum + power((x.todigit), i + 1);
|
|
if sum = n then yield (n);
|
|
n += 1;
|
|
end;
|
|
end;
|
|
|
|
disariums.Take(19).Println;
|