1,2

The polynomial is symmetric:

h[x]=x^22*h[1/x].

It would be fairly easy to map the McMullem 22nd degree

Salem which is related to K3 dynamics (and a tetrahedral surface) to this 22nd degree polynomial. The McMullen Salem polynomial has the ratio of

1.3728862806447408 which is near 1/(100*Alpha) the fine structure constyant.

p(x)]=-2 - 167 x + 1694 x^2 - 6069 x^3 + 11210 x^4 - 12297 x^5 + 8554 x^6 -3875 x^7 + 1140 x^8 - 210 x^9 + 22 x^10 - x^11; q(x)=x^11*p(x+1/x); a(n)=Coefficient_Expansion(q(x)).

m11 = {{2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {-1, 2, -1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, -1, 2, -1, 0, 0, 0, 0, 0, 0, -1}, {0, 0, -1, 2, -1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, -1, 2, -1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, -1, 2, -1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, -1, 2, -1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, -1, 2, -1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -1, 2, -1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, -1, 2, 0}, {0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 2}}; f[x_] = CharacteristicPolynomial[m11, x]; h[x_] = ExpandAll[x^11*f[x + 1/x]]; g[x] = ExpandAll[x^22*h[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]

Sequence in context: A028571 A010974 A022587 this_sequence A004412 A055756 A128766

Adjacent sequences: A143476 A143477 A143478 this_sequence A143480 A143481 A143482

uned,probation,sign

Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 24 2008