cp's OEIS Frontend

A295797 Numbers that have exactly one representation as a sum of seven positive squares.

%I A295797 #18 Nov 06 2020 10:38:41
%S A295797 7,10,13,15,16,18,19,21,23,24,26,27,29,32,35,36,41,44
%N A295797 Numbers that have exactly one representation as a sum of seven positive squares.
%C A295797 It appears that this sequence is finite and complete. See the von Eitzen link for a proof for the 5 positive squares case.
%D A295797 E. Grosswald, Representations of Integers as Sums of Squares. Springer-Verlag, New York, 1985, p. 86, Theorem 1.
%H A295797 H. von Eitzen, in reply to user James47, <a href="http://math.stackexchange.com/questions/811824/what-is-the-largest-integer-with-only-one-representation-as-a-sum-of-five-nonzer">What is the largest integer with only one representation as a sum of five nonzero squares?</a> on stackexchange.com, May 2014
%H A295797 D. H. Lehmer, <a href="http://www.jstor.org/stable/2305380">On the Partition of Numbers into Squares</a>, The American Mathematical Monthly, Vol. 55, No. 8, October 1948, pp. 476-481.
%F A295797 A243148(a(n),7) = 1. - _Alois P. Heinz_, Feb 25 2019
%t A295797 m = 7;
%t A295797 r[n_] := Reduce[xx = Array[x, m]; 0 <= x[1] && LessEqual @@ xx && AllTrue[xx, Positive] && n == Total[xx^2], xx, Integers];
%t A295797 For[n = 0, n < 50, n++, rn = r[n]; If[rn[[0]] === And, Print[n, " ", rn]]] (* _Jean-François Alcover_, Feb 25 2019 *)
%t A295797 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 A295797 T[n_, k_] := b[n, Sqrt[n] // Floor, k, k];
%t A295797 Position[Table[T[n, 7], {n, 0, 100}], 1] - 1 // Flatten (* _Jean-François Alcover_, Nov 06 2020, after _Alois P. Heinz_ in A243148 *)
%Y A295797 Cf. A025431, A243148, A287166, A295670.
%K A295797 nonn,more
%O A295797 1,1
%A A295797 _Robert Price_, Nov 27 2017