A138849 a(n) = AlexanderPolynomial[n] defined as Det[Transpose[S]-n S] where S is Kronecker Product 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}}.

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, 893700, 1015777, 1149952, 1296999, 1457716, 1632925

Offset

1,3

Links

Table of n, a(n) for n=1..37.

Eric Weisstein's World of Mathematics, 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, Apr 05 2008

G.f.: x*(1 - 5*x + 17*x^2 + 7*x^3 + 4*x^4)/(1-x)^5. - Vincenzo Librandi, Nov 22 2015

Maple

A138849:=n->n^4-5*n^3+9*n^2-8*n+4: seq(A138849(n), n=1..50); # Wesley Ivan Hurt, Nov 22 2015

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 Jasinski *)
CoefficientList[Series[(1 - 5 x + 17 x^2 + 7 x^3 + 4 x^4)/(1 - x)^5, {x, 0, 40}], x] (* Vincenzo Librandi, Nov 22 2015 *)

Prog

(Magma) [n^4-5*n^3+9*n^2-8*n+4: n in [1..40]]; // Vincenzo Librandi, Nov 22 2015
(PARI) vector(40, n, n^4-5*n^3+9*n^2-8*n+4) \\ Altug Alkan, Nov 22 2015

Crossrefs

Cf. A002061.

Sequence in context: A198007 A156751 A352242 * A057675 A206809 A027542

Adjacent sequences: A138846 A138847 A138848 * A138850 A138851 A138852

Keyword

nonn,easy

Author

Artur Jasinski, Mar 31 2008

Extensions

More terms from Vincenzo Librandi, Nov 22 2015

Status

approved