A004436 Numbers that are not the sum of 3 distinct squares.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 15, 16, 18, 19, 22, 23, 24, 27, 28, 31, 32, 33, 36, 39, 43, 44, 47, 48, 51, 55, 57, 60, 63, 64, 67, 71, 72, 76, 79, 87, 88, 92, 95, 96, 99, 102, 103, 108, 111, 112

Offset

1,2

Links

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

Index entries for sequences related to sums of squares

Mathematica

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 *)

Crossrefs

Cf. A001974 (complement).

Sequence in context: A373159 A081754 A336654 * A028237 A194463 A140467

Adjacent sequences: A004433 A004434 A004435 * A004437 A004438 A004439

Keyword

nonn

Author

N. J. A. Sloane

Status

approved