OFFSET
0,1
MATHEMATICA
Complement[Range[150], Union[Flatten[Table[Union[Total/@(Partition[ Range[-50, 50], i, 1]^2)], {i, 20}]]]] (* Harvey P. Dale, Jan 04 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jun 25 2001
STATUS
approved