login
A115219
Expansion of 2*x^2*(1-x)/(1-3*x+2*x^2-2*x^3).
1
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
Fan Chung, R. L. Graham, Primitive juggling sequences, Am. Math. Monthly 115 (3) (2008) 185-194
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 05 2006
STATUS
approved