Amicable pairs: Difference between revisions
Content deleted Content added
→{{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(.', $');
| |||