29 lines
423 B
Plaintext
29 lines
423 B
Plaintext
limite = 2200
|
|
s = 3
|
|
dim l(limite)
|
|
dim ladd(limite * limite * 2)
|
|
|
|
for x = 1 to limite
|
|
x2 = x * x
|
|
for y = x to limite
|
|
ladd(x2 + y * y) = 1
|
|
next y
|
|
next x
|
|
|
|
for x = 1 to limite
|
|
s1 = s
|
|
s = s + 2
|
|
s2 = s
|
|
for y = x +1 to limite
|
|
if ladd(s1) = 1 l(y) = 1
|
|
s1 = s1 + s2
|
|
s2 = s2 + 2
|
|
next y
|
|
next x
|
|
|
|
for x = 1 to limite
|
|
if l(x) = 0 print str$(x), " ";
|
|
next x
|
|
print
|
|
end
|