A134823 - OEIS

A134823

Expansion of -x*(x^5+11*x^4+x^3+x^2+21*x-4) / ((x^2+x-1)*(3*x^4+7*x-1)).

4, 11, 63, 409, 2818, 19669, 137725, 965065, 6763525, 47403061, 332233597, 2328528748, 16319989180, 114382129186, 801671598205, 5618686762534, 39379767287245, 276001517369095, 1934415636331069, 13557765514528696

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..20.

FORMULA

G.f.: -x*(x^5+11*x^4+x^3+x^2+21*x-4) / ((x^2+x-1)*(3*x^4+7*x-1)). - Colin Barker, Mar 17 2013

a(n) = +8*a(n-1) -6*a(n-2) -7*a(n-3) +3*a(n-4) -3*a(n-5) -3*a(n-6). - Colin Barker, Mar 17 2013

MATHEMATICA

M = {{0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 0, 3, 0, 0, 7}}; v[0] = {1, 0, 1, 0, 1, 0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[Apply[Plus, v[n]], {n, 0, 50}]

CROSSREFS

Sequence in context: A303955 A114053 A266386 * A000880 A006551 A353819

Adjacent sequences: A134820 A134821 A134822 * A134824 A134825 A134826

KEYWORD

nonn,easy,less

AUTHOR

Roger L. Bagula, Jan 28 2008

EXTENSIONS

New name from Colin Barker and Joerg Arndt, Mar 17 2013

STATUS

approved