Idoneal numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 104: / Line 104: @@
             DO
                 FOR c FROM b + 1 TO n
-                WHILE INT bc = b * c, ac = a * c;
+                WHILE INT sum = ab + ( c * ( b + a ) );
-                      INT sum = ab + bc + ac;
                       sum <= n
-                  AND count < max count
                   AND ( idoneal := sum /= n )
                 DO SKIP OD