|
%I #10 Dec 14 2023 19:42:45
%S 1,26,338,2938,19266,101946,454610,1757938,6018220,18545046,52157222,
%T 135472766,328243942,748247838,1616345094,3329094158,6571888024,
%U 12490108930,22941430122,40859300690,70766009834,119483732914,197103817482,318288489402,503995375364
%N Coordination sequence for 12-dimensional cyclotomic lattice Z[zeta_26].
%H Harvey P. Dale, <a href="/A126919/b126919.txt">Table of n, a(n) for n = 0..1000</a>
%H M. Beck and S. Hosten, <a href="http://arxiv.org/abs/math/0508136">Cyclotomic polytopes and growth series of cyclotomic lattices</a>, arXiv math.CO/0508136
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (12, -66, 220, -495, 792, -924, 792, -495, 220, -66, 12, -1).
%F G.f.: (x^12 + 14*x^11 + 92*x^10 + 378*x^9 + 1093*x^8 + 2380*x^7 + 4096*x^6 + 2380*x^5 + 1093*x^4 + 378*x^3 + 92*x^2 + 14*x + 1)/(x-1)^12.
%t CoefficientList[Series[(x^12+14x^11+92x^10+378x^9+1093x^8+2380x^7+4096x^6+2380x^5+1093x^4+378x^3+92x^2+14x+1)/(x-1)^12,{x,0,30}],x] (* or *) LinearRecurrence[{12,-66,220,-495,792,-924,792,-495,220,-66,12,-1},{1,26,338,2938,19266,101946,454610,1757938,6018220,18545046,52157222,135472766,328243942},30] (* _Harvey P. Dale_, Dec 14 2023 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Mar 18 2007
|
