Strange plus numbers: Difference between revisions

(Added Algol 68)
Line 47:
# considers numbers n where 100 < n < 500 #
PR read "primes.incl.a68" PR
[]BOOLprime = PRIMESIEVE 18; # note: PRIMESIEVE includes 0 in the sieve #
INT s count := 0;
FOR n FROM 101 TO 499 DO
3,038

edits