OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,-1,6,3,2,-1).
FORMULA
MATHEMATICA
CoefficientList[Series[(9+x+10x^2-28x^3-7x^4-x^5)/(1+x^2-6x^3-3x^4-2x^5 +x^6), {x, 0, 40}], x]
LinearRecurrence[{0, -1, 6, 3, 2, -1}, {9, 1, 1, 25, 25, 1}, 40] (* Harvey P. Dale, Feb 14 2015 *)
PROG
(PARI) my(x='x+O('x^40)); Vec((9+x+10*x^2-28*x^3-7*x^4-x^5)/(1+x^2-6*x^3 -3*x^4-2*x^5+x^6)) \\ G. C. Greubel, Apr 23 2019
(Magma) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( (9+x+ 10*x^2-28*x^3-7*x^4-x^5)/(1+x^2-6*x^3-3*x^4-2*x^5+x^6) )); // G. C. Greubel, Apr 23 2019
(Sage) ((9+x+10*x^2-28*x^3-7*x^4-x^5)/(1+x^2-6*x^3-3*x^4-2*x^5+x^6) ).series(x, 40).coefficients(x, sparse=False) # G. C. Greubel, Apr 23 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Mario Catalani (mario.catalani(AT)unito.it), Aug 04 2002
STATUS
approved