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