(* 0 から 45 までの整数の 2 乗を計算 *)
n = Range[0, 45]^2;

(* 3 つの数のすべての組み合わせを生成し、それらの和を計算 *)
s = Union[Total /@ Tuples[n, 3]];

(* 1000 から 2025 までの整数のうち、s に含まれないものを抽出 *)
m = Range[1000, 2025];
ans = Select[m, ! MemberQ[s, #] &];

(* 結果を出力 *)
Length[ans]
ans