The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A295797 Numbers that have exactly one representation as a sum of seven positive squares. 1
 7, 10, 13, 15, 16, 18, 19, 21, 23, 24, 26, 27, 29, 32, 35, 36, 41, 44 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS It appears that this sequence is finite and complete. See the von Eitzen link for a proof for the 5 positive squares case. REFERENCES E. Grosswald, Representations of Integers as Sums of Squares. Springer-Verlag, New York, 1985, p. 86, Theorem 1. LINKS H. von Eitzen, in reply to user James47, What is the largest integer with only one representation as a sum of five nonzero squares? on stackexchange.com, May 2014 D. H. Lehmer, On the Partition of Numbers into Squares, The American Mathematical Monthly, Vol. 55, No. 8, October 1948, pp. 476-481. FORMULA A243148(a(n),7) = 1. - Alois P. Heinz, Feb 25 2019 MATHEMATICA m = 7; r[n_] := Reduce[xx = Array[x, m]; 0 <= x[1] && LessEqual @@ xx && AllTrue[xx, Positive] && n == Total[xx^2], xx, Integers]; For[n = 0, n < 50, n++, rn = r[n]; If[rn[[0]] === And, Print[n, " ", rn]]] (* Jean-François Alcover, Feb 25 2019 *) b[n_, i_, k_, t_] := b[n, i, k, t] = If[n == 0, If[t == 0, 1, 0], If[i<1 || t<1, 0, b[n, i - 1, k, t] + If[i^2 > n, 0, b[n - i^2, i, k, t - 1]]]]; T[n_, k_] := b[n, Sqrt[n] // Floor, k, k]; Position[Table[T[n, 7], {n, 0, 100}], 1] - 1 // Flatten (* Jean-François Alcover, Nov 06 2020, after Alois P. Heinz in A243148 *) CROSSREFS Cf. A025431, A243148, A287166, A295670. Sequence in context: A089373 A184114 A345478 * A153040 A352963 A024888 Adjacent sequences:  A295794 A295795 A295796 * A295798 A295799 A295800 KEYWORD nonn,more AUTHOR Robert Price, Nov 27 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 13 08:18 EDT 2022. Contains 356079 sequences. (Running on oeis4.)