

A120951


Numbers that are not the sum of 5 distinct nonzero squares.


3



1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 80, 81, 83, 84, 85, 86, 89, 91, 92, 93, 96, 97, 98, 101, 102, 104, 105, 107, 108, 109, 112, 113, 116, 117, 119, 122, 124, 125, 128, 133, 136, 137, 140, 141, 149, 153, 161, 164, 173, 177, 182, 188, 189, 197, 203, 221, 224, 236, 245
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

There are no other terms below 5000 and this list (of 124 terms) is probably complete. Is this known?
Thanks to R. K. Guy for supplying the references.
No others n < 10000.  T. D. Noe, Jul 23 2006
Bateman et al. prove that 245 is the last term.  T. D. Noe, Apr 03 2007


REFERENCES

E. M. Wright, Quart. J. Math. Oxford Ser. 4 (1933), 3751.


LINKS

Franklin T. AdamsWatters, Table of n, a(n) for n = 1..124
Paul T. Bateman, Adolf J. Hildebrand, and George B. Purdy, Sums of distinct squares, Acta Arithmetica 67 (1994), pp. 349380.
Index entries for sequences related to sums of squares


MATHEMATICA

nn=10000; t=Table[0, {nn}]; lim=Floor[Sqrt[nn]]; sq=Table[i^2, {i, lim}]; Do[n=sq[[i1]]+sq[[i2]]+sq[[i3]]+sq[[i4]]+sq[[i5]]; If[n<=nn, t[[n]]++ ], {i1, lim}, {i2, i1+1, lim}, {i3, i2+1, lim}, {i4, i3+1, lim}, {i5, i4+1, lim}]; Flatten[Position[t, 0]]  T. D. Noe, Jul 23 2006


CROSSREFS

Cf. A004438.
Sequence in context: A122079 A272118 A247163 * A272554 A179797 A268200
Adjacent sequences: A120948 A120949 A120950 * A120952 A120953 A120954


KEYWORD

fini,nonn,full


AUTHOR

Franklin T. AdamsWatters, Jul 18 2006


EXTENSIONS

Entry revised by N. J. A. Sloane, Jul 23 2006


STATUS

approved



