A107508 - OEIS

%I #16 Dec 04 2021 13:16:04

%S 1,312,18642,447096,6004674,53600248,353024594,1839267768,7960151810,

%T 29653889720,97649896786,290078713080,789747027394,1995416563064,

%U 4726400795090,10581459177016,22543374588930,45962181162040,90105620342738,170538349148024,312685497919938

%N Coordination sequence for D_13 lattice

%H <a href="/index/Rec#order_13">Index entries for linear recurrences with constant coefficients</a>, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).

%F G.f.: -(x + 1)*(x^12 + 298*x^11 + 14366*x^10 + 214434*x^9 + 1343551*x^8 + 3959604*x^7 + 5686084*x^6 + 3959604*x^5 + 1343551*x^4 + 214434*x^3 + 14366*x^2 + 298*x + 1) / (x - 1)^13. [_Colin Barker_, Nov 20 2012]

%t CoefficientList[Series[-(x+1)(x^12+298x^11+14366x^10+214434x^9+ 1343551x^8+ 3959604x^7+ 5686084x^6+3959604x^5+1343551x^4+214434x^3+14366x^2+298x+1)/ (x-1)^13,{x,0,40}],x] (* or *) LinearRecurrence[{13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1},{1,312,18642,447096,6004674,53600248,353024594,1839267768,7960151810,29653889720,97649896786,290078713080,789747027394,1995416563064},40] (* _Harvey P. Dale_, Dec 04 2021 *)

%K nonn,easy

%O 0,2

%A _N. J. A. Sloane_, May 28 2005