cp's OEIS Frontend

A153026 a(1)=0, a(n) = n^3 - a(n-1).

%I A153026 #15 Sep 08 2022 08:45:39
%S A153026 0,8,19,45,80,136,207,305,424,576,755,973,1224,1520,1855,2241,2672,
%T A153026 3160,3699,4301,4960,5688,6479,7345,8280,9296,10387,11565,12824,14176,
%U A153026 15615,17153,18784,20520,22355,24301,26352,28520,30799,33201,35720,38368
%N A153026 a(1)=0, a(n) = n^3 - a(n-1).
%C A153026 The old name was: a(n)+a(n+1) = cube: 0+8=8=2^3; 8+19=27=3^3; 19+45=64=4^3; ...
%H A153026 Vincenzo Librandi, <a href="/A153026/b153026.txt">Table of n, a(n) for n = 1..1000</a>
%F A153026 From _R. J. Mathar_, Dec 19 2008: (Start)
%F A153026 G.f.: x^2*(8-5*x+4*x^2-x^3)/((1+x)*(1-x)^4).
%F A153026 a(n)+a(n+1) = A000578(n+1).
%F A153026 a(n)= -1/8+3*n^2/4+n^3/2+9*(-1)^n/8. (End)
%t A153026 a=1;lst={};Do[a=n^3-a;AppendTo[lst,a],{n,1,5!}];lst
%t A153026 CoefficientList[Series[x (8 - 5 x + 4 x^2 - x^3)/((1 + x) (1 - x)^4), {x, 0, 50}], x] (* _Vincenzo Librandi_, May 19 2014 *)
%o A153026 (Magma) [n le 1 select n-1 else n^3-Self(n-1): n in [1..50]]; // _Vincenzo Librandi_, May 19 2014
%Y A153026 Cf. A125577, A153026.
%K A153026 nonn,easy
%O A153026 1,2
%A A153026 _Vladimir Joseph Stephan Orlovsky_, Dec 17 2008
%E A153026 Name improved by _Alex Ratushnyak_, Aug 05 2012