%I #13 Jun 13 2015 00:52:02
%S 0,1,1,772,2308,597520,2967568,464830528,3208753216,363407352064,
%T 3191137173760,285479120733184,3021751590913024,225291467904913408,
%U 2771288157631025152,178566423666235555840,2485482152393098412032
%N Expansion of x*(1+x)/((1+2x)(1-2x-768x^2)).
%C The characteristic polynomial has the integer root -2 and the two real-valued roots 1+-sqrt(769).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (0,772,1536).
%F a(n)=772*a(n-2)+1536*a(n-3), n>2. [_From Harvey P. Dale_, Nov 25 2011]
%t M = {{0, 1, 0}, {0, 0, 1}, {1536, 772, 0}}; w[0] = {0, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n][[1]], {n, 0, 25}]]
%t LinearRecurrence[{0,772,1536},{0,1,1},20] (* _Harvey P. Dale_, Nov 25 2011 *)
%K nonn,less
%O 0,4
%A _Roger L. Bagula_, Feb 15 2006