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

0, 0, 0, 0, 1, 2, 6, 24, 95, 380, 1520, 6072, 24253, 96870, 386910, 1545368, 6172403, 24653392, 98468904, 393297808, 1570883385, 6274315690, 25060445446, 100094728568, 399791564311, 1596820303940, 6377911168464, 25474219467560, 101747396653957, 406392538897646

Offset

0,6

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Fan Chung, R. L. Graham, Primitive juggling sequences, Am. Math. Monthly 115 (3) (2008) 185-194

Index entries for linear recurrences with constant coefficients, signature (4,0,0,-1,2,2)

Formula

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

Mathematica

{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 *)
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 *)
LinearRecurrence[{4, 0, 0, -1, 2, 2}, {0, 0, 0, 0, 1, 2, 6}, 30] (* Harvey P. Dale, Dec 02 2015 *)

Crossrefs

Sequence in context: A192466 A367274 A361752 * A293185 A292984 A072854

Adjacent sequences: A115217 A115218 A115219 * A115221 A115222 A115223

Keyword

nonn,easy

Author

N. J. A. Sloane, Mar 05 2006

Status

approved