OFFSET
1,2
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
Carolina Benedetti, Christopher R. H. Hanusa, Pamela E. Harris, Alejandro H. Morales, Anthony Simpson, Kostant's partition function and magic multiplex juggling sequences, arXiv:2001.03219 [math.CO], 2020. See Table 1 p. 12.
S. Butler and R. Graham, Enumerating (multiplex) juggling sequences, arXiv:0801.2597 [math.CO], 2008.
Index entries for linear recurrences with constant coefficients, signature (8,-13).
FORMULA
G.f.: (x-4*x^2+3*x^3)/(1-8*x+13*x^2).
a(1)=1, a(2)=4, a(3)=22, a(n) = 8*a(n-1)-13*a(n-2). - Harvey P. Dale, Aug 26 2012
a(n) = ((4-sqrt(3))^n*(-9+14*sqrt(3))+(4+sqrt(3))^n*(9+14*sqrt(3)))/(169*sqrt(3)) for n>1. - Colin Barker, Aug 31 2016
MATHEMATICA
Rest[CoefficientList[Series[(x-4x^2+3x^3)/(1-8x+13x^2), {x, 0, 30}], x]] (* or *) Join[{1}, LinearRecurrence[{8, -13}, {4, 22}, 30]] (* Harvey P. Dale, Aug 26 2012 *)
PROG
(PARI) Vec((x-4*x^2+3*x^3)/(1-8*x+13*x^2) + O(x^30)) \\ Colin Barker, Aug 31 2016
(Magma) R<x>:=PowerSeriesRing(Integers(), 25); Coefficients(R!( (x-4*x^2+3*x^3)/(1-8*x+13*x^2))); // Marius A. Burtea, Jan 13 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Steve Butler, Jan 21 2008
STATUS
approved