Quadrat special primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 45: / Line 45: @@
             sqPos := 2;
             while begin
-                integer pGap;
+                nextPrime := thisPrime + square( sqPos );
-                pGap      := square( sqPos );
-                nextPrime := thisPrime + pGap;
                 nextPrime < MAX_NUMBER and not prime( nextPrime )
             end do sqPos := sqPos + 2;