Jump to content

Quadrat special primes: Difference between revisions

m
→‎{{header|ALGOL W}}: tweaked the code
(Added Algol W)
m (→‎{{header|ALGOL W}}: tweaked the code)
Line 45:
sqPos := 2;
while begin
integernextPrime pGap:= thisPrime + square( sqPos );
pGap := square( sqPos );
nextPrime := thisPrime + pGap;
nextPrime < MAX_NUMBER and not prime( nextPrime )
end do sqPos := sqPos + 2;
3,043

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.