Find squares n where n+1 is prime: Difference between revisions
m
→{{header|PL/M}}: Removed unnecessary variable
(Added PROMAL) |
m (→{{header|PL/M}}: Removed unnecessary variable) |
||
Line 935:
END;
DECLARE (
TO$NEXT, I2 = 4; /* NOTE: ( 2N + 2 )^2 - 2N^2 = 8N + 4 */
DO WHILE I2 < 1000;
IF IS$PRIME( I2 + 1 ) THEN DO;
Line 945 ⟶ 944:
TO$NEXT = TO$NEXT + 8;
I2 = I2 + TO$NEXT;
END;
| |||