|
| |
|
|
A158078
|
|
G.f. 1/( (1 + x)^7*(1 -7*x +28*x^2 -84*x^3 +210*x^4 -462*x^5 +924*x^6 -1463*x^7 +1738*x^8 -1463*x^9 +924*x^10 -462*x^11 +210*x^12 -84*x^13 +28*x^14 -7*x^15 +x^16) )
|
|
0
| |
|
|
1, 0, 0, 0, 0, 0, 0, -253, -506, 0, 0, -1288, -1288, 0, 64009, 255530, 255783, 0, 651728, 1955184, 1303456, -16194277, -95250682, -190373347, -127639236, -247330776, -1235350424, -1976691024, 3108480705, 31420912490, 92858107023
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,8
|
|
|
REFERENCES
| F. J. MacWilliams and N. J. A. Sloane, The Theory of Error-Correcting Codes, Elsevier/North Holland, 1978, p. 69, Golay C_23 weights.
|
|
|
FORMULA
| G.f.: 1/(1 + 253*x^7 + 506*x^8 + 1288*x^11 + 1288*x^12 + 506*x^15 + 253*x^16 + x^23).
|
|
|
MATHEMATICA
| f[x_] = 1 + 253* x^7 + 506*x^8 + 1288*x^11 + 1288*x^12 + 506*x^15 + 253*x^16 + x^23;
g[x] = ExpandAll[x^23*f[1/x]];
a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
|
|
|
CROSSREFS
| Sequence in context: A172690 A088851 A002289 * A157356 A203085 A070193
Adjacent sequences: A158075 A158076 A158077 * A158079 A158080 A158081
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2009
|
|
|
EXTENSIONS
| Tightened redundant information - The Assoc. Eds. of the OEIS, Aug 30 2010
|
| |
|
|
