Sort[Flatten[Table[x^2-4Range[0,Floor[x/2]]^2,{x,100}]]]