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

 

Logo
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

Table of n, a(n) for n=1..18.

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.

License Agreements, Terms of Use, Privacy Policy. .

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