OFFSET
0,3
COMMENTS
(See A192911.)
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (1,4,5,2,-1,1).
FORMULA
(See A192911.)
G.f.: x^2*(1+x)*(2-x) / (1 - x - 4*x^2 - 5*x^3 - 2*x^4 + x^5 - x^6). - R. J. Mathar, May 08 2014
EXAMPLE
(See A192911.)
MATHEMATICA
(See A192911.)
LinearRecurrence[{1, 4, 5, 2, -1, 1}, {0, 0, 2, 3, 10, 32}, 28] (* Ray Chandler, Aug 02 2015 *)
PROG
(PARI) my(x='x+O('x^30)); concat([0, 0], Vec(x^2*(1+x)*(2-x)/(1-x-4*x^2 -5*x^3-2*x^4+x^5-x^6))) \\ G. C. Greubel, Jan 12 2019
(Magma) m:=30; R<x>:=PowerSeriesRing(Integers(), m); [0, 0] cat Coefficients(R!( x^2*(1+x)*(2-x)/(1-x-4*x^2-5*x^3-2*x^4+x^5-x^6) )); // G. C. Greubel, Jan 12 2019
(Sage) (x^2*(1+x)*(2-x)/(1-x-4*x^2-5*x^3-2*x^4+x^5-x^6)).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Jan 12 2019
(GAP) a:=[0, 0, 2, 3, 10, 32];; for n in [7..30] do a[n]:=a[n-1]+4*a[n-2] +5*a[n-3]+2*a[n-4]-a[n-5]+a[n-6]; od; a; # G. C. Greubel, Jan 12 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jul 12 2011
STATUS
approved