|
%I #18 Dec 19 2022 02:15:55
%S 1,1,2,3,5,8,13,21,34,55,90,146,237,385,625,1015,1648,2676,4345,7055,
%T 11456,18602,30205,49046,79639,129315,209977,340953,553627,898959,
%U 1459697,2370203,3848649,6249296,10147379,16476944,26754661,43443243
%N Expansion of 1/(1-x-x^2-x^10+x^12).
%H Vincenzo Librandi, <a href="/A147659/b147659.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1).
%t f[x_] = 1 - x^2 - x^10 - x^11 + x^12;
%t g[x] = ExpandAll[x^12*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
%t CoefficientList[Series[1/(1-x-x^2-x^10+x^12),{x,0,40}],x] (* _Harvey P. Dale_, May 31 2012 *)
%K nonn,easy
%O 0,3
%A _Roger L. Bagula_, Nov 09 2008
|
