%I #23 Sep 08 2022 08:45:23
%S 0,0,2,4,8,20,52,132,332,836,2108,5316,13404,33796,85212,214852,
%T 541724,1365892,3443932,8683460,21894300,55203844,139189852,350950468,
%U 884879388,2231116932,5625492956,14184003780,35763259292,90172756228,227359757660
%N Expansion of 2*x^2*(1-x)/(1-3*x+2*x^2-2*x^3).
%H G. C. Greubel, <a href="/A115219/b115219.txt">Table of n, a(n) for n = 0..1000</a>
%H Fan Chung, R. L. Graham, <a href="http://www.jstor.org/stable/27642443">Primitive juggling sequences</a>, Am. Math. Monthly 115 (3) (2008) 185-194
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,-2,2)
%F a(n+3) = 3*a(n+2) - 2*a(n+1) + 2*a(n). - _G. C. Greubel_, Feb 05 2016
%t CoefficientList[Series[2x^2(1-x)/(1-3x+2x^2-2x^3),{x,0,30}],x] (* or *)
%t Join[{0},LinearRecurrence[{3,-2,2},{0,2,4},30]] (* _Harvey P. Dale_, Apr 25 2011 *)
%o (Magma) I:=[0,0,2,4,8]; [n le 5 select I[n] else 3*Self(n-1) - 2*Self(n-2) + 2*Self(n-3): n in [1..40]]; // _Vincenzo Librandi_, Jan 06 2016
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Mar 05 2006
|