|
Search: id:A129920
|
|
|
| A129920 |
|
Coefficient expansion of characteristic polynomial of Link L6a1 Jones polynomial: f(x) = -x^(3/2) + 2*x^(1/2) - 1/x^(1/2) + 2/x^(3/2) - 3/x^(5/2) + 1/x^(7/2) - 1/x^(9/2); p(x)=1/(1-x+3*x^2-2*x^3+x^4-2*x^5+x^6);. |
|
+0
1
|
|
| -1, -1, 2, 3, -4, -10, 5, 29, 2, -76, -45, 178, 212, -361, -750, 565, 2282, -306, -6206, -2428, 15176, 14353, -32719, -55104, 57933, 176234, -61524, -499047, -97429, 1271400, 921652
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
REFERENCES
|
L6a1: http://katlas.math.toronto.edu/wiki/L6a1
|
|
FORMULA
|
a(n) = Expansion of[1/1/(1-x+3*x^2-2*x^3+x^4-2*x^5+x^6)];
|
|
MATHEMATICA
|
f[x_] = -x^(3/2) + 2*x^(1/2) - 1/x^(1/2) + 2/x^(3/2) - 3/x^(5/2) + 1/x^(7/2) - 1/x^(9/2); p[x] = ExpandAll[FullSimplify[x^(3/2)/f[x]]/x^6]; Table[SeriesCoefficient[Series[p[x], {x, 0, 30}], n], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A076017 A135112 A082865 this_sequence A065634 A087548 A111619
Adjacent sequences: A129917 A129918 A129919 this_sequence A129921 A129922 A129923
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 05 2007
|
|
|
Search completed in 0.002 seconds
|
