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