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!)
A061790 Number of sums i^2 + j^2 that occur more than once for 1 <= i <= j <= n. 0
0, 0, 0, 0, 0, 0, 1, 2, 3, 3, 5, 6, 8, 11, 12, 14, 18, 20, 25, 27, 31, 35, 42, 46, 50, 55, 61, 67, 74, 78, 87, 94, 101, 111, 118, 124, 133, 143, 153, 159, 172, 181, 193, 206, 214, 227, 240, 251, 265, 277, 290, 303, 322, 337, 350, 363, 378, 392, 410, 421, 440, 461 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,8
COMMENTS
If the {s+t} sums are generated by addition 2 terms of an S set consisting of n different entries, then at least 1 and at most n(n+1)/2=A000217(n) distinct values can be obtained. The set of first n squares gives results falling between these two extremes.
LINKS
EXAMPLE
S={1,4,9,...,100,121} provides 61 different sums of two (not necessarily different) squares: {2,5,8,..,202,221,242}. Only 5 of these sums arise more than once:
50 = 1 + 49 = 25 + 25;
65 = 1 + 64 = 16 + 49;
85 = 4 + 81 = 36 + 49;
125 = 4 + 121 = 25 + 100;
130 = 9 + 121 = 49 + 81.
Therefore a(11) = (12*11/2) - 61 = 5.
MATHEMATICA
f[x_] := x^2 t0=Table[Length[Union[Flatten[Table[f[u]+f[w], {w, 1, m}, {u, 1, m}]]]], {m, 1, 75}] t1=Table[(w*(w+1)/2)-Part[t0, w], {w, a, b}]
CROSSREFS
Cf. A000217.
Sequence in context: A035938 A024503 A321286 * A107236 A192184 A027586
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 22 2001
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 March 28 15:28 EDT 2024. Contains 371254 sequences. (Running on oeis4.)