A115219 Expansion of 2*x^2*(1-x)/(1-3*x+2*x^2-2*x^3).

0, 0, 2, 4, 8, 20, 52, 132, 332, 836, 2108, 5316, 13404, 33796, 85212, 214852, 541724, 1365892, 3443932, 8683460, 21894300, 55203844, 139189852, 350950468, 884879388, 2231116932, 5625492956, 14184003780, 35763259292, 90172756228, 227359757660

Offset

0,3

Links

G. C. Greubel, 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 (3,-2,2)

Formula

a(n+3) = 3*a(n+2) - 2*a(n+1) + 2*a(n). - G. C. Greubel, Feb 05 2016

Mathematica

CoefficientList[Series[2x^2(1-x)/(1-3x+2x^2-2x^3), {x, 0, 30}], x] (* or *)
Join[{0}, LinearRecurrence[{3, -2, 2}, {0, 2, 4}, 30]]  (* Harvey P. Dale, Apr 25 2011 *)

Prog

(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

Crossrefs

Sequence in context: A301467 A358056 A275070 * A078160 A218088 A222320

Adjacent sequences: A115216 A115217 A115218 * A115220 A115221 A115222

Keyword

nonn

Author

N. J. A. Sloane, Mar 05 2006

Status

approved