A004437 Numbers that are not the sum of 4 distinct squares.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 27, 28, 31, 32, 33, 34, 36, 37, 40, 43, 44, 47, 48, 52, 55, 58, 60, 64, 67, 68, 72, 73, 76, 80, 82, 88, 92, 96, 97, 100, 103, 108, 112
Offset: 1
Keywords
Links
- Gordon Pall, On Sums of Squares, The American Mathematical Monthly, Vol. 40, No. 1, (January 1933), pp. 10-18. [From _Ant King_, Nov 02 2010]
- Index entries for sequences related to sums of squares
Crossrefs
Cf. A001944 (complement).
Programs
-
Mathematica
data = Reduce[ w^2 + x^2 + y^2 + z^2 == # && 0 <= w < x < y < z < #, {w, x, y, z}, Integers] & /@ Range[112]; DeleteCases[ Table[If[Head[data[[k]]] === Symbol, k, 0], {k, 1, Length[data]}], 0] (* Ant King, Nov 02 2010 *)
Formula
Let k>=0. Then the only integers that cannot be partitioned into a sum of four distinct squares of nonnegative integers are 4^k * N3, where N3 = (N1 union N2), and N1 and N2 are defined by N1 = {1,3,5,7,9,11,13,15,17,19,23,25,27,31,33,37,43,47,55,67,73,97,103} and N2 = {2,6,10,18,22,34,58,82}, respectively. - Ant King, Nov 02 2010
Comments