|
Search: id:A097812
|
|
|
| A097812 |
|
Numbers n such that n^2 is the sum of two or more consecutive squares. |
|
+0
6
|
|
| 5, 29, 70, 77, 92, 106, 138, 143, 158, 169, 182, 195, 245, 253, 274, 357, 385, 413, 430, 440, 495, 531, 650, 652, 655, 679, 724, 788, 795, 985, 1012, 1022, 1055, 1133, 1281, 1365, 1397, 1518, 1525, 1529, 1546, 1599, 1612, 1786, 1828, 2205, 2222, 2257, 2372
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
These numbers were found by exhaustive search. The sums are not unique; for n=143, there are two representations. The Mathematica code prints n, the range of squares in the sum and the number of squares in the sum. Because the search included sums of all squares up to 2000, this sequence is complete up to 2828.
|
|
LINKS
|
K. S. Brown, Sum of Consecutive Nth Powers Equals an Nth Power
Index entries for sequences related to sums of squares
|
|
EXAMPLE
|
29 is in this sequence because 20^2 + 21^2 = 29^2.
|
|
MATHEMATICA
|
g[m0_, m1_] := (1-m0+m1)(-m0+2m0^2+m1+2m0 m1+2m1^2)/6; lst={}; Do[n=g[m0, m1]^(1/2); If[IntegerQ[n], Print[{n, m0, m1, m1-m0+1}]; AppendTo[lst, n]], {m1, 2, 2000}, {m0, m1-1, 1, -1}]; Union[lst]
|
|
CROSSREFS
|
Cf. A097811 (n^3 is the sum of consecutive cubes).
Cf. A001032, A151557.
Sequence in context: A031394 A103094 A108928 this_sequence A100559 A087348 A154412
Adjacent sequences: A097809 A097810 A097811 this_sequence A097813 A097814 A097815
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Aug 25 2004
|
|
|
Search completed in 0.002 seconds
|
