|
Search: id:A143478
|
|
|
| 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. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
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 this_sequence A067123 A165833 A038338
Adjacent sequences: A143475 A143476 A143477 this_sequence A143479 A143480 A143481
|
|
KEYWORD
|
uned,probation,sign
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 24 2008
|
|
|
Search completed in 0.002 seconds
|
