|
%I #35 Dec 19 2022 13:40:46
%S 100,225,440,775,1260,1925,2800,3915,5300,6985,9000,11375,14140,17325,
%T 20960,25075,29700,34865,40600,46935,53900,61525,69840,78875,88660,
%U 99225,110600,122815,135900,149885,164800,180675,197540
%N a(n) = n^3 + (n+1)^3 + (n+2)^3 + (n+3)^3 + (n+4)^3.
%H Vincenzo Librandi, <a href="/A027604/b027604.txt">Table of n, a(n) for n = 0..1000</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/sumcube.htm">Palindromic Sums of Cubes of Consecutive Integers</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (4,-6,4,-1).
%F a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - 1*a(n-4) for n >= 4.
%F From _Bruno Berselli_, Jan 24 2011: (Start)
%F G.f.: 5*(20 - 35*x + 28*x^2 - 7*x^3)/(1-x)^4.
%F a(n) = 5*n^3 + 30*n^2 + 90*n + 100 = A008587(n+2)*A114949(n+2). (End)
%F E.g.f.: 5*(4+x)*(5+5*x+x^2)*exp(x). - _G. C. Greubel_, Aug 24 2022
%t Table[n^3 +(n+1)^3 +(n+2)^3 +(n+3)^3 +(n+4)^3, {n, 0, 60}] (* _Vladimir Joseph Stephan Orlovsky_, Jun 27 2011 *)
%t Table[100+90n+30n^2+5n^3,{n,0,40}] (* or *) LinearRecurrence[{4,-6,4,-1},{100,225,440,775},40] (* _Harvey P. Dale_, Dec 19 2022 *)
%o (Sage) [n^3+(n+1)^3+(n+2)^3+(n+3)^3+(n+4)^3 for n in range(0,35)] # _Zerinvary Lajos_, Jul 03 2008
%o (Magma) [5*n^3+30*n^2+90*n+100: n in [0..40]]; // _Vincenzo Librandi_, Jun 04 2011
%o (PARI) a(n)=5*((n+6)*n+18)*n+100 \\ _Charles R Greathouse IV_, Jun 28 2011
%Y Cf. A000578, A005898, A027602, A027603.
%Y Cf. A008587, A114949.
%K nonn,easy
%O 0,1
%A _Patrick De Geest_
|
