39 lines
585 B
Plaintext
39 lines
585 B
Plaintext
_limit = 2200
|
|
|
|
long x, x2, y, s = 3, s1, s2, counter
|
|
long l( _limit )
|
|
long ladd( _limit * _limit * 2 )
|
|
|
|
for x = 1 to _limit
|
|
x2 = x * x
|
|
for y = x to _limit
|
|
ladd( x2 + y * y ) = 1
|
|
next
|
|
next
|
|
|
|
for x = 1 to _limit
|
|
s1 = s
|
|
s = s + 2
|
|
s2 = s
|
|
for y = x + 1 to _limit
|
|
if ladd(s1) == 1 then l(y) = 1
|
|
s1 = s1 + s2
|
|
s2 = s2 + 2
|
|
next
|
|
next
|
|
|
|
counter = 1
|
|
for x = 1 to _limit
|
|
if ( l(x) == 0 )
|
|
if ( counter mod 7 == 0 )
|
|
printf @"%6ld", x : counter == 1 : continue
|
|
else
|
|
printf @"%6ld\b", x
|
|
counter++
|
|
end if
|
|
end if
|
|
next
|
|
print
|
|
|
|
HandleEvents
|