1,2

T. D. Noe, Table of n, a(n) for n=1..1000

Index entries for sequences related to sums of squares

r[n_] := Reduce[0 <= x < y < z && x^2 + y^2 + z^2 == n, {x, y, z}, Integers]; ok[n_] := r[n] == False; Select[ Range[112], ok] (* Jean-François Alcover, Dec 05 2011 *)

Cf. A001974 (complement)

Sequence in context: A050118 A081754 A336654 * A028237 A194463 A140467

Adjacent sequences: A004433 A004434 A004435 * A004437 A004438 A004439

nonn

N. J. A. Sloane.

approved