Find adjacent primes which differ by a square integer: Difference between revisions

Content added Content deleted
m (→‎{{header|Raku}}: re-enable caveat)
Line 18: Line 18:
FOR i TO UPB is square DO is square[ i ] := FALSE OD;
FOR i TO UPB is square DO is square[ i ] := FALSE OD;
FOR i WHILE INT i2 = i * i;
FOR i WHILE INT i2 = i * i;
i * i <= UPB is square
i2 <= UPB is square
DO
DO
is square[ i2 ] := TRUE
is square[ i2 ] := TRUE