OFFSET
1,1
MATHEMATICA
t = Union[ Flatten[ Table[ x^2 + 2y^2 + 2y*z + 4z^2, {x, 0, 28}, {y, -23, 23}, {z, -16, 16}]]]; Complement[ Range[ 800], Take[t, 747]] (* Robert G. Wilson v, Aug 21 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Aug 20 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 21 2004
STATUS
approved