13 lines
264 B
Text
13 lines
264 B
Text
with(NumberTheory):
|
|
pairs:=[];
|
|
for i from 1 to 20000 do
|
|
for j from i+1 to 20000 do
|
|
sum1:=SumOfDivisors(j)-j;
|
|
sum2:=SumOfDivisors(i)-i;
|
|
if sum1=i and sum2=j and i<>j then
|
|
pairs:=[op(pairs),[i,j]];
|
|
printf("%a", pairs);
|
|
end if;
|
|
end do;
|
|
end do;
|
|
pairs;
|