A126203 Middle number of a set of 5 consecutive integers whose sum of cubes is a square.
0, 2, 3, 27, 98, 120
Offset: 1
References
- L. E. Dickson, History of the Theory of Numbers, Volume 2, Chapter 21, page 587.
- L. J. Mordell, Diophantine Equations, Ac. Press; see Th. 1, Chap. 27, p. 255.
Links
- L. E. Dickson, History of the Theory of Numbers, Volume 2, Chapter 21, page 587.
- Edouard Lucas, Recherches sur l'analyse indéterminée, Bull. Soc. d'Emulation du Département de l'Allier, 12, 1873, 532.
Programs
-
Maple
q:= n-> issqr((n^2+6)*5*n): select(q, [$0..150])[]; # Alois P. Heinz, Mar 08 2022
-
Mathematica
Select[Partition[Range[-5,130],5,1],IntegerQ[Sqrt[Total[#^3]]]&][[All,3]] (* Harvey P. Dale, Jan 31 2017 *)
-
PARI
for(n=1, 10^8, if(issquare(5*n*(n*n+6)), print(n)))
Comments