|
Search: id:A138849
|
|
|
| A138849 |
|
a(n)=AlexanderPolynomial[n] defined as Det[Transpose[S]-n S] where S is Kronecker Prodcut of two 2 x 2 Seifert matrices {{-1, 1}, {0, -1}}[X]{{-1, 1}, {0, -1}}={{1, -1, -1, 1}, {0, 1, 0, -1}, {0, 0, 1, -1}, {0, 0, 0, 1}}. |
|
+0
1
|
|
| 1, 0, 7, 52, 189, 496, 1075, 2052, 3577, 5824, 8991, 13300, 18997, 26352, 35659, 47236, 61425, 78592, 99127, 123444, 151981, 185200, 223587, 267652, 317929, 374976, 439375, 511732, 592677, 682864, 782971
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
E. W. Weisstein, Alexander Polynomial
|
|
FORMULA
|
a(n)=Det[Transpose[}}={{1, -1, -1, 1}, {0, 1, 0, -1}, {0, 0, 1, -1}, {0, 0, 0, 1}}] - n {{1, -1, -1, 1}, {0, 1, 0, -1}, {0, 0, 1, -1}, {0, 0, 0, 1}}]
a(n)=n^4-5n^3+9n^2-8n+4 - Artur Jasinski (grafix(AT)csl.pl), Apr 05 2008
|
|
MATHEMATICA
|
S = {{1, -1, -1, 1}, {0, 1, 0, -1}, {0, 0, 1, -1}, {0, 0, 0, 1}}; Table[Det[Transpose[S] - n S], {n, 0, 30}] (*Artur Jasiinski*)
|
|
CROSSREFS
|
Cf. A002061.
Sequence in context: A081216 A124271 A156751 this_sequence A057675 A027542 A037593
Adjacent sequences: A138846 A138847 A138848 this_sequence A138850 A138851 A138852
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Mar 31 2008
|
|
|
Search completed in 0.005 seconds
|
