5 lines
120 B
Text
5 lines
120 B
Text
integer n
|
|
for m=1 to 20000 do
|
|
n = sum(factors(m,-1))
|
|
if m<n and m=sum(factors(n,-1)) then ?{m,n} end if
|
|
end for
|