OFFSET
0,4
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,0,10,0,0,-17,0,0,1).
FORMULA
G.f.: x*(1+x+5*x^2+12*x^3+3*x^4+2*x^5+x^6)/(1-10*x^3+17*x^6-x^9). - Bruno Berselli, Oct 03 2012
a(n) = 10*a(n-3) - 17*a(n-6) + a(n-9). - G. C. Greubel, Apr 23 2018
MATHEMATICA
CoefficientList[Series[x*(1+x+5*x^2+12*x^3+3*x^4+2*x^5+x^6)/(1 - 10*x^3 + 17*x^6 - x^9), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 15 2012 *)
LinearRecurrence[{0, 0, 10, 0, 0, -17, 0, 0, 1}, {0, 1, 1, 5, 22, 13, 52, 204, 113}, 50] (* G. C. Greubel, Apr 23 2018 *)
PROG
(Magma) i:=35; I:=[0, 1, 7]; A:=[m le 3 select I[m] else 7*Self(m-1)-14*Self(m-2)+7*Self(m-3): m in [1..i]]; [7^(-Floor(n/3))*A[n]: n in [1..i]]; // Bruno Berselli, Oct 03 2012
(PARI) x='x+O('x^30); concat([0], Vec(x*(1+x+5*x^2+12*x^3+3*x^4 +2*x^5 +x^6)/(1- 10*x^3+17*x^6-x^9))) \\ G. C. Greubel, Apr 23 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roman Witula, Oct 03 2012
STATUS
approved