

One form of   Pythagorean quadruples   is   (for positive integers   a,   b,   c,   and   d):



    a2   +   b2   +   c2     =     d2 


An example:

    22   +   32   +   62     =     72 
 which is:
    4    +   9    +   36     =     49 


Task

For positive integers up   2,200   (inclusive),   for all values of   a,  
b,   c,   and   d,

find   (and show here)   those values of   d   that   can't   be represented.

Show the values of   d   on one line of output   (optionally with a title).



Related tasks

   Euler's sum of powers conjecture. 
   Pythagorean triples.


Reference

   the Wikipedia article:   Pythagorean quadruple.


OpenConsole()
limite.i = 2200
s.i = 3
Dim l.i(limite)
Dim ladd.i(limite * limite * 2)
 
For x.i = 1 To limite
  x2.i = x * x
  For y = x To limite
    ladd(x2 + y * y) = 1
  Next y
Next x
 
For x.i = 1 To limite
  s1.i = s
  s.i + 2
  s2.i = s
  For y = x +1 To limite
    If ladd(s1) = 1
      l(y) = 1
    EndIf
    s1 + s2
    s2 + 2
  Next y
Next x
 
For x.i = 1 To limite
  If l(x) = 0 
    Print(Str(x) + " ")
  EndIf
Next x
Input()
CloseConsole()