Amicable pairs: Difference between revisions
→{{header|PL/M}}: Improve the search
(→{{header|PL/I-80}}: Added alternative version using a table of proper divisor sums) |
(→{{header|PL/M}}: Improve the search) |
||
Line 4,975:
/* TEST EACH PAIR */
DO I=2 TO 20$000;
IF J > I
IF DIV$SUM(J) = I THEN DO;
CALL PRINT$NUMBER(I);
CALL PRINT(.', $');
| |||