Quad-power prime seeds: Difference between revisions

Content added Content deleted
(Added Algol 68)
m (→‎{{header|ALGOL 68}}: Corrected comment)
Line 63: Line 63:
prime[ n + n1 ]
prime[ n + n1 ]
THEN
THEN
# n^0 + n + 1 and n^1 + n + 1 are prime #
# n^1 + n + 1 is prime #
LONG INT np := n * n;
LONG INT np := n * n;
IF is prime( np + n1 ) THEN
IF is prime( np + n1 ) THEN