|
|
A092544
|
|
Molien series for complete weight enumerators of self-dual codes over Z/8Z.
|
|
3
|
|
|
1, 1, 1, 5, 23, 54, 120, 263, 557, 1058, 1883, 3260, 5490, 8844, 13754, 20916, 31201, 45447, 64787, 90925, 125881, 171626, 230670, 306511, 403205, 524760, 676017, 863456, 1094420, 1376184, 1717308, 2128800, 2622977, 3212093, 3910205, 4734941, 5705771, 6842078
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
G.f.: u1/u2, where u1 = subs(x -> x^2, f), u2 = (1-x^2)^4*(1-x^8)^2*(1-x^16)^2, and f = (1+x)^2*(1 -5*x +12*x^2 -16*x^3 +24*x^4 -37*x^5 +67*x^6 -83*x^7 +118*x^8 -146*x^9 +186*x^10 -158*x^11 +137*x^12 -111*x^13 +113*x^14 -81*x^15 + 69*x^16 -53*x^17 +38*x^18 -14*x^19 +3*x^20), even terms only.
G.f.: (1+x)^2*(1 -5*x +12*x^2 -16*x^3 +24*x^4 -37*x^5 +67*x^6 -83*x^7 +118*x^8 -146*x^9 +186*x^10 -158*x^11 +137*x^12 -111*x^13 +113*x^14 -81*x^15 + 69*x^16 -53*x^17 +38*x^18 -14*x^19 +3*x^20)/((1-x)^4*(1-x^4)^2*(1-x^8)^2). - G. C. Greubel, Feb 01 2020
|
|
MAPLE
|
g:= (1-3*x+3*x^2+3*x^3+4*x^4-5*x^5+17*x^6+14*x^7+19*x^8+7*x^9 +12*x^10 +68*x^11 +7*x^12+5*x^13+28*x^14+34*x^15+20*x^16+4*x^17+x^18 +9*x^19 +13*x^20 -8*x^21 +3*x^22)/((1-x)^4*(1-x^4)^2*(1-x^8)^2):
S:= series(g, x, 100):
|
|
MATHEMATICA
|
CoefficientList[Series[(1+x)^2*(1 -5*x +12*x^2 -16*x^3 +24*x^4 -37*x^5 +67*x^6 -83*x^7 +118*x^8 -146*x^9 +186*x^10 -158*x^11 +137*x^12 -111*x^13 +113*x^14 -81*x^15 + 69*x^16 -53*x^17 +38*x^18 -14*x^19 +3*x^20)/((1-x)^4*(1-x^4)^2*(1-x^8)^2), {x, 0, 40}], x] (* G. C. Greubel, Feb 01 2020 *)
|
|
PROG
|
(Sage)
def g(x): return (1+x)^2*(1 -5*x +12*x^2 -16*x^3 +24*x^4 -37*x^5 +67*x^6 -83*x^7 +118*x^8 -146*x^9 +186*x^10 -158*x^11 +137*x^12 -111*x^13 +113*x^14 -81*x^15 + 69*x^16 -53*x^17 +38*x^18 -14*x^19 +3*x^20)/((1-x)^4*(1-x^4)^2*(1-x^8)^2)
[( g(x) ).series(x, n+1).list()[n] for n in (0..40)] # G. C. Greubel, Feb 01 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|