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