A133379 Expansion of -x^2*(50*x+1)/(160264*x^3+80136*x^2-49*x-1).

0, 1, 1, 80087, -3683863, 6598521383, -605702530167, 557868142906439, -74816611528953111, 48274263154574414055, -8271536696003575251895, 4261821240829074290673031, -863940478961362432734725719, 382532760867137139577205872167

Offset

1,4

Links

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

Index entries for linear recurrences with constant coefficients, signature (-49,80136,160264).

Formula

G.f.: -x^2*(50*x+1)/(160264*x^3+80136*x^2-49*x-1). [Colin Barker, Oct 11 2012]

Mathematica

M = {{1, -1, 1}, {50, -46, -4}, {Binomial[50, 3], -Binomial[46, 3], -Binomial[4, 3]}}
v[0] = {0, 0, 1};
v[n_] := v[n] = M.v[n - 1];
a = Table[v[n][[1]], {n, 0, 20}]

Crossrefs

Sequence in context: A106775 A258951 A234756 * A250335 A250080 A251377

Adjacent sequences: A133376 A133377 A133378 * A133380 A133381 A133382

Keyword

sign,easy,less

Author

Roger L. Bagula, Oct 28 2007

Extensions

Meaningful name from Joerg Arndt, Dec 26 2022

Status

approved