A116145 Squares that are equal to the sum of 5 consecutive cubes.
0, 100, 225, 99225, 4708900, 8643600
Offset: 1
Programs
-
Mathematica
Select[Table[n^3 +(n+1)^3 +(n+2)^3 +(n+3)^3 +(n+4)^3, {n, -2, 1000}] ,IntegerQ[Sqrt[#]]&] (* James C. McMahon, Aug 18 2024 *)
Comments