The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #11 Nov 27 2024 16:00:58
%S 1,4,17,71,300,1271,5383,22802,96591,409165,1733250,7342165,31101909,
%T 131749800,558101109,2364154235,10014718048,42423026427,179706823755,
%U 761250321446,3224708109539,13660082759601,57865039147942
%N Expansion of (1-x^4-2*x^3)/((x-1)*(x^2+x+1)*(x^2+4*x-1)).
%H Harvey P. Dale, <a href="/A108929/b108929.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (4, 1, 1, -4, -1).
%p seriestolist(series((1-x^4-2*x^3)/((x-1)*(x^2+x+1)*(x^2+4*x-1)), x=0,25)); -or- -1kbaseksum[A*B] with A = - 'i + 'j - i' + j' - 'kk' - 'ik' - 'jk' - 'ki' - 'kj' and B = + .5'i + .5i'; SumType: default
%t CoefficientList[Series[(1-x^4-2x^3)/((x-1)(x^2+x+1)(x^2+4x-1)),{x,0,30}],x] (* or *) LinearRecurrence[{4,1,1,-4,-1},{1,4,17,71,300},30] (* _Harvey P. Dale_, Nov 27 2024 *)
%K easy,nonn
%O 0,2
%A _Creighton Dement_, Jul 19 2005