|
| |
|
|
A143478
|
|
A real root polynomial related to McMullen's Salem gives the polynomial used to get this expansion sequence: p(x)=x^11 + x^10 - 11*x^9 - 11*x^8 + 42*x^7 + 40*x^6 - 66*x^5 - 54*x^4 + 42*x^3 + 24*x^2 - 8*x - 1.
|
|
1
| |
|
|
1, -1, 12, -12, 91, -89, 560, -526, 3061, -2715, 15526, -12779, 74893, -56092, 348808, -232184, 1584273, -909357, 7065982, -3354913, 31100725, -11473678, 135587365, -34883109, 587116592, -82703752, 2530527727, -52581912, 10874166572, 1107267567, 46648306254
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| McMullen's transform gives:
x^11*p(x+1/x)=x^22 + x^21 - x^19 - 2*x^18 - 3*x^17 - 3*x^16 - 2*x^15 + 2*x^13 + 4*x^12 + 5*x^11 + 4*x^10 + 2*x^9 - 2*x^7 - 3*x^6 - 3*x^5 - 2*x^4 - x^3 + x + 1.
|
|
|
FORMULA
| p(x)=x^11 + x^10 - 11*x^9 - 11*x^8 + 42*x^7 + 40*x^6 - 66*x^5 - 54*x^4 + 42*x^3 + 24*x^2 - 8*x - 1; a(n)=Coefficient_Expansion(x^20*p(1/x)).
|
|
|
MATHEMATICA
| f[x_]=x^11 + x^10 - 11*x^9 - 11*x^8 + 42*x^7 + 40*x^6 - 66*x^5 - 54*x^4 + 42*x^3 + 24*x^2 - 8*x - 1; g[x] = ExpandAll[x^10*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A161196 A111306 A151777 * A067123 A178341 A165833
Adjacent sequences: A143475 A143476 A143477 * A143479 A143480 A143481
|
|
|
KEYWORD
| uned,sign
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 24 2008
|
| |
|
|
