|
%I #13 Dec 26 2022 04:36:28
%S 0,1,1,80087,-3683863,6598521383,-605702530167,557868142906439,
%T -74816611528953111,48274263154574414055,-8271536696003575251895,
%U 4261821240829074290673031,-863940478961362432734725719,382532760867137139577205872167
%N Expansion of -x^2*(50*x+1)/(160264*x^3+80136*x^2-49*x-1).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (-49,80136,160264).
%F G.f.: -x^2*(50*x+1)/(160264*x^3+80136*x^2-49*x-1). [_Colin Barker_, Oct 11 2012]
%t M = {{1, -1, 1}, {50, -46, -4}, {Binomial[50, 3], -Binomial[46, 3], -Binomial[4, 3]}}
%t v[0] = {0, 0, 1};
%t v[n_] := v[n] = M.v[n - 1];
%t a = Table[v[n][[1]], {n, 0, 20}]
%K sign,easy,less
%O 1,4
%A _Roger L. Bagula_, Oct 28 2007
%E Meaningful name from _Joerg Arndt_, Dec 26 2022
|
