A115220 - OEIS

A115220

Expansion of x^4*(1-2*x-2*x^2)/(1-4*x+x^4-2*x^5-2*x^6).

%I #26 May 02 2017 22:17:16

%S 0,0,0,0,1,2,6,24,95,380,1520,6072,24253,96870,386910,1545368,6172403,

%T 24653392,98468904,393297808,1570883385,6274315690,25060445446,

%U 100094728568,399791564311,1596820303940,6377911168464,25474219467560,101747396653957,406392538897646

%N Expansion of x^4*(1-2*x-2*x^2)/(1-4*x+x^4-2*x^5-2*x^6).

%H Vincenzo Librandi, <a href="/A115220/b115220.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_06">Index entries for linear recurrences with constant coefficients</a>, signature (4,0,0,-1,2,2)

%F a(0)=a(1)=a(2)=a(3)=0,a(4)=1,a(5)=2,a(6)=6; for n>6 a(n) = 4*a(n-1) - a(n-4) + 2*a(n-5) + 2*a(n-6). - _Zak Seidov_, Mar 06 2006

%t {a[0]=a[1]=a[2]=a[3]=0,a[4]=1,a[5]=2,a[6]=6};a[n_]:=a[n]=2*a[ -6+n]+2*a[ -5+n]-a[ -4+n]+4*a[ -1+n];Table[a[n],{n,0,29}] (* _Zak Seidov_, Mar 06 2006 *)

%t CoefficientList[Series[x^4*(1-2*x-2*x^2)/(1-4*x+x^4-2*x^5-2*x^6),{x,0,40}],x] (* _Vincenzo Librandi_, Jun 27 2012 *)

%t LinearRecurrence[{4,0,0,-1,2,2},{0,0,0,0,1,2,6},30] (* _Harvey P. Dale_, Dec 02 2015 *)

%K nonn,easy

%O 0,6

%A _N. J. A. Sloane_, Mar 05 2006