8 13: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
(Resetting knot page to basic template.)
 
No edit summary
Line 1: Line 1:
<!-- -->
{{Template:Basic Knot Invariants|name=8_13}}

<!-- provide an anchor so we can return to the top of the page -->
<span id="top"></span>

<!-- this relies on transclusion for next and previous links -->
{{Knot Navigation Links|ext=gif}}

{| align=left
|- valign=top
|[[Image:{{PAGENAME}}.gif]]
|{{Rolfsen Knot Site Links|n=8|k=13|KnotilusURL=http://srankin.math.uwo.ca/cgi-bin/retrieve.cgi/-1,8,-2,1,-4,5,-6,7,-8,2,-3,4,-7,6,-5,3/goTop.html}}
|{{:{{PAGENAME}} Quick Notes}}
|}

<br style="clear:both" />

{{:{{PAGENAME}} Further Notes and Views}}

{{Knot Presentations}}
{{3D Invariants}}
{{4D Invariants}}
{{Polynomial Invariants}}
{{Vassiliev Invariants}}

===[[Khovanov Homology]]===

The coefficients of the monomials <math>t^rq^j</math> are shown, along with their alternating sums <math>\chi</math> (fixed <math>j</math>, alternation over <math>r</math>). The squares with <font class=HLYellow>yellow</font> highlighting are those on the "critical diagonals", where <math>j-2r=s+1</math> or <math>j-2r=s+1</math>, where <math>s=</math>{{Data:{{PAGENAME}}/Signature}} is the signature of {{PAGENAME}}. Nonzero entries off the critical diagonals (if any exist) are highlighted in <font class=HLRed>red</font>.

<center><table border=1>
<tr align=center>
<td width=15.3846%><table cellpadding=0 cellspacing=0>
<tr><td>\</td><td>&nbsp;</td><td>r</td></tr>
<tr><td>&nbsp;</td><td>&nbsp;\&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>j</td><td>&nbsp;</td><td>\</td></tr>
</table></td>
<td width=7.69231%>-3</td ><td width=7.69231%>-2</td ><td width=7.69231%>-1</td ><td width=7.69231%>0</td ><td width=7.69231%>1</td ><td width=7.69231%>2</td ><td width=7.69231%>3</td ><td width=7.69231%>4</td ><td width=7.69231%>5</td ><td width=15.3846%>&chi;</td></tr>
<tr align=center><td>11</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td>-1</td></tr>
<tr align=center><td>9</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td bgcolor=yellow>&nbsp;</td><td>1</td></tr>
<tr align=center><td>7</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>2</td><td bgcolor=yellow>1</td><td>&nbsp;</td><td>-1</td></tr>
<tr align=center><td>5</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>1</td><td>&nbsp;</td><td>&nbsp;</td><td>2</td></tr>
<tr align=center><td>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>2</td><td bgcolor=yellow>2</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>0</td></tr>
<tr align=center><td>1</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>0</td></tr>
<tr align=center><td>-1</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>2</td><td bgcolor=yellow>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>1</td></tr>
<tr align=center><td>-3</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td bgcolor=yellow>2</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-1</td></tr>
<tr align=center><td>-5</td><td bgcolor=yellow>&nbsp;</td><td bgcolor=yellow>2</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>2</td></tr>
<tr align=center><td>-7</td><td bgcolor=yellow>1</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-1</td></tr>
</table></center>

{{Computer Talk Header}}

<table>
<tr valign=top>
<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:=&nbsp;&nbsp;&nbsp;&nbsp;</pre></td>
<td align=left><pre style="color: red; border: 0px; padding: 0em">&lt;&lt; KnotTheory`</pre></td>
</tr>
<tr valign=top><td colspan=2><pre style="border: 0px; padding: 0em">Loading KnotTheory` (version of August 17, 2005, 14:44:34)...</pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[2]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Crossings[Knot[8, 13]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[2]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>8</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[3]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>PD[Knot[8, 13]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[3]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>PD[X[1, 4, 2, 5], X[3, 10, 4, 11], X[11, 1, 12, 16], X[5, 13, 6, 12],
X[15, 7, 16, 6], X[7, 15, 8, 14], X[13, 9, 14, 8], X[9, 2, 10, 3]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[4]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>GaussCode[Knot[8, 13]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[4]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>GaussCode[-1, 8, -2, 1, -4, 5, -6, 7, -8, 2, -3, 4, -7, 6, -5, 3]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[5]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>BR[Knot[8, 13]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[5]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>BR[4, {-1, -1, 2, -1, 2, 2, 3, -2, 3}]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[6]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>alex = Alexander[Knot[8, 13]][t]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[6]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2 7 2
11 + -- - - - 7 t + 2 t
2 t
t</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[7]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Conway[Knot[8, 13]][z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[7]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2 4
1 + z + 2 z</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[8]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Select[AllKnots[], (alex === Alexander[#][t])&]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[8]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{Knot[8, 13]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[9]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>{KnotDet[Knot[8, 13]], KnotSignature[Knot[8, 13]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[9]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{29, 0}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[10]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>J=Jones[Knot[8, 13]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[10]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> -3 3 4 2 3 4 5
5 - q + -- - - - 5 q + 5 q - 3 q + 2 q - q
2 q
q</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[11]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[11]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{Knot[8, 13]}</nowiki></pre></td></tr>
<math>\textrm{Include}(\textrm{ColouredJonesM.mhtml})</math>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[12]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>A2Invariant[Knot[8, 13]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[12]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> -10 -8 -6 -4 -2 2 4 6 8 10 16
-1 - q + q + q - q + q + q + q + q + 2 q - q - q</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[13]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Kauffman[Knot[8, 13]][a, z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[13]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2 2 3
-4 2 2 z 4 z 3 z 5 z 7 z 2 2 3 z
-a - -- + --- + --- + --- + a z + ---- + ---- - 2 a z - ---- -
2 5 3 a 4 2 5
a a a a a a
3 3 4 4 5
7 z 9 z 3 3 3 4 6 z 11 z 2 4 z
---- - ---- - 4 a z + a z - 2 z - ---- - ----- + 3 a z + -- +
3 a 4 2 5
a a a a
5 5 6 6 7 7
z 4 z 5 6 2 z 5 z z z
-- + ---- + 4 a z + 3 z + ---- + ---- + -- + --
3 a 4 2 3 a
a a a a</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[14]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>{Vassiliev[2][Knot[8, 13]], Vassiliev[3][Knot[8, 13]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[14]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{0, 1}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[15]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Kh[Knot[8, 13]][q, t]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[15]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>3 1 2 1 2 2 3
- + 3 q + ----- + ----- + ----- + ---- + --- + 3 q t + 2 q t +
q 7 3 5 2 3 2 3 q t
q t q t q t q t
3 2 5 2 5 3 7 3 7 4 9 4 11 5
2 q t + 3 q t + q t + 2 q t + q t + q t + q t</nowiki></pre></td></tr>
</table>

Revision as of 21:49, 27 August 2005


8 12.gif

8_12

8 14.gif

8_14

8 13.gif Visit 8 13's page at the Knot Server (KnotPlot driven, includes 3D interactive images!)

Visit 8 13's page at Knotilus!

Visit 8 13's page at the original Knot Atlas!

8 13 Quick Notes


8 13 Further Notes and Views

Knot presentations

Planar diagram presentation X1425 X3,10,4,11 X11,1,12,16 X5,13,6,12 X15,7,16,6 X7,15,8,14 X13,9,14,8 X9,2,10,3
Gauss code -1, 8, -2, 1, -4, 5, -6, 7, -8, 2, -3, 4, -7, 6, -5, 3
Dowker-Thistlethwaite code 4 10 12 14 2 16 8 6
Conway Notation [31112]

Three dimensional invariants

Symmetry type Reversible
Unknotting number 1
3-genus 2
Bridge index 2
Super bridge index [math]\displaystyle{ \{4,5\} }[/math]
Nakanishi index 1
Maximal Thurston-Bennequin number [-4][-6]
Hyperbolic Volume 8.53123
A-Polynomial See Data:8 13/A-polynomial

[edit Notes for 8 13's three dimensional invariants]

Four dimensional invariants

Smooth 4 genus [math]\displaystyle{ 1 }[/math]
Topological 4 genus [math]\displaystyle{ 1 }[/math]
Concordance genus [math]\displaystyle{ 2 }[/math]
Rasmussen s-Invariant 0

[edit Notes for 8 13's four dimensional invariants]

Polynomial invariants

Alexander polynomial [math]\displaystyle{ 2 t^2-7 t+11-7 t^{-1} +2 t^{-2} }[/math]
Conway polynomial [math]\displaystyle{ 2 z^4+z^2+1 }[/math]
2nd Alexander ideal (db, data sources) [math]\displaystyle{ \{1\} }[/math]
Determinant and Signature { 29, 0 }
Jones polynomial [math]\displaystyle{ -q^5+2 q^4-3 q^3+5 q^2-5 q+5-4 q^{-1} +3 q^{-2} - q^{-3} }[/math]
HOMFLY-PT polynomial (db, data sources) [math]\displaystyle{ z^4 a^{-2} +z^4-a^2 z^2+2 z^2 a^{-2} -z^2 a^{-4} +z^2+2 a^{-2} - a^{-4} }[/math]
Kauffman polynomial (db, data sources) [math]\displaystyle{ z^7 a^{-1} +z^7 a^{-3} +5 z^6 a^{-2} +2 z^6 a^{-4} +3 z^6+4 a z^5+4 z^5 a^{-1} +z^5 a^{-3} +z^5 a^{-5} +3 a^2 z^4-11 z^4 a^{-2} -6 z^4 a^{-4} -2 z^4+a^3 z^3-4 a z^3-9 z^3 a^{-1} -7 z^3 a^{-3} -3 z^3 a^{-5} -2 a^2 z^2+7 z^2 a^{-2} +5 z^2 a^{-4} +a z+3 z a^{-1} +4 z a^{-3} +2 z a^{-5} -2 a^{-2} - a^{-4} }[/math]
The A2 invariant [math]\displaystyle{ -q^{10}+q^8+q^6-q^4+q^2-1+ q^{-2} + q^{-4} + q^{-6} +2 q^{-8} - q^{-10} - q^{-16} }[/math]
The G2 invariant [math]\displaystyle{ q^{52}-2 q^{50}+3 q^{48}-4 q^{46}+q^{44}-3 q^{40}+9 q^{38}-11 q^{36}+12 q^{34}-8 q^{32}+6 q^{28}-13 q^{26}+18 q^{24}-16 q^{22}+10 q^{20}-8 q^{16}+14 q^{14}-10 q^{12}+4 q^{10}+2 q^8-10 q^6+9 q^4-3 q^2-7+17 q^{-2} -22 q^{-4} +19 q^{-6} -6 q^{-8} -9 q^{-10} +19 q^{-12} -26 q^{-14} +26 q^{-16} -14 q^{-18} +3 q^{-20} +11 q^{-22} -16 q^{-24} +21 q^{-26} -10 q^{-28} + q^{-30} +6 q^{-32} -9 q^{-34} +8 q^{-36} -6 q^{-40} +14 q^{-42} -15 q^{-44} +9 q^{-46} + q^{-48} -13 q^{-50} +18 q^{-52} -19 q^{-54} +11 q^{-56} -4 q^{-58} -6 q^{-60} +11 q^{-62} -13 q^{-64} +10 q^{-66} -4 q^{-68} - q^{-70} +2 q^{-72} -4 q^{-74} +3 q^{-76} - q^{-78} + q^{-80} }[/math]

Vassiliev invariants

V2 and V3: (1, 1)
V2,1 through V6,9:
V2,1 V3,1 V4,1 V4,2 V4,3 V5,1 V5,2 V5,3 V5,4 V6,1 V6,2 V6,3 V6,4 V6,5 V6,6 V6,7 V6,8 V6,9
[math]\displaystyle{ 4 }[/math] [math]\displaystyle{ 8 }[/math] [math]\displaystyle{ 8 }[/math] [math]\displaystyle{ \frac{14}{3} }[/math] [math]\displaystyle{ -\frac{38}{3} }[/math] [math]\displaystyle{ 32 }[/math] [math]\displaystyle{ \frac{80}{3} }[/math] [math]\displaystyle{ \frac{32}{3} }[/math] [math]\displaystyle{ -24 }[/math] [math]\displaystyle{ \frac{32}{3} }[/math] [math]\displaystyle{ 32 }[/math] [math]\displaystyle{ \frac{56}{3} }[/math] [math]\displaystyle{ -\frac{152}{3} }[/math] [math]\displaystyle{ \frac{1951}{30} }[/math] [math]\displaystyle{ \frac{526}{5} }[/math] [math]\displaystyle{ -\frac{6058}{45} }[/math] [math]\displaystyle{ -\frac{31}{18} }[/math] [math]\displaystyle{ -\frac{1409}{30} }[/math]

V2,1 through V6,9 were provided by Petr Dunin-Barkowski <barkovs@itep.ru>, Andrey Smirnov <asmirnov@itep.ru>, and Alexei Sleptsov <sleptsov@itep.ru> and uploaded on October 2010 by User:Drorbn. Note that they are normalized differently than V2 and V3.

Khovanov Homology

The coefficients of the monomials [math]\displaystyle{ t^rq^j }[/math] are shown, along with their alternating sums [math]\displaystyle{ \chi }[/math] (fixed [math]\displaystyle{ j }[/math], alternation over [math]\displaystyle{ r }[/math]). The squares with yellow highlighting are those on the "critical diagonals", where [math]\displaystyle{ j-2r=s+1 }[/math] or [math]\displaystyle{ j-2r=s+1 }[/math], where [math]\displaystyle{ s= }[/math]0 is the signature of 8 13. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

\ r
  \  
j \
-3-2-1012345χ
11        1-1
9       1 1
7      21 -1
5     31  2
3    22   0
1   33    0
-1  23     1
-3 12      -1
-5 2       2
-71        -1

Computer Talk

Much of the above data can be recomputed by Mathematica using the package KnotTheory`. See A Sample KnotTheory` Session.

[math]\displaystyle{ \textrm{Include}(\textrm{ColouredJonesM.mhtml}) }[/math]

In[1]:=    
<< KnotTheory`
Loading KnotTheory` (version of August 17, 2005, 14:44:34)...
In[2]:=
Crossings[Knot[8, 13]]
Out[2]=  
8
In[3]:=
PD[Knot[8, 13]]
Out[3]=  
PD[X[1, 4, 2, 5], X[3, 10, 4, 11], X[11, 1, 12, 16], X[5, 13, 6, 12], 
  X[15, 7, 16, 6], X[7, 15, 8, 14], X[13, 9, 14, 8], X[9, 2, 10, 3]]
In[4]:=
GaussCode[Knot[8, 13]]
Out[4]=  
GaussCode[-1, 8, -2, 1, -4, 5, -6, 7, -8, 2, -3, 4, -7, 6, -5, 3]
In[5]:=
BR[Knot[8, 13]]
Out[5]=  
BR[4, {-1, -1, 2, -1, 2, 2, 3, -2, 3}]
In[6]:=
alex = Alexander[Knot[8, 13]][t]
Out[6]=  
     2    7            2

11 + -- - - - 7 t + 2 t

     2   t
t
In[7]:=
Conway[Knot[8, 13]][z]
Out[7]=  
     2      4
1 + z  + 2 z
In[8]:=
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=  
{Knot[8, 13]}
In[9]:=
{KnotDet[Knot[8, 13]], KnotSignature[Knot[8, 13]]}
Out[9]=  
{29, 0}
In[10]:=
J=Jones[Knot[8, 13]][q]
Out[10]=  
     -3   3    4            2      3      4    5

5 - q + -- - - - 5 q + 5 q - 3 q + 2 q - q

          2   q
q
In[11]:=
Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]
Out[11]=  
{Knot[8, 13]}
In[12]:=
A2Invariant[Knot[8, 13]][q]
Out[12]=  
      -10    -8    -6    -4    -2    2    4    6      8    10    16
-1 - q    + q   + q   - q   + q   + q  + q  + q  + 2 q  - q   - q
In[13]:=
Kauffman[Knot[8, 13]][a, z]
Out[13]=  
                                       2      2                3
 -4   2    2 z   4 z   3 z         5 z    7 z       2  2   3 z

-a - -- + --- + --- + --- + a z + ---- + ---- - 2 a z - ---- -

       2    5     3     a            4      2                5
      a    a     a                  a      a                a

    3      3                              4       4              5
 7 z    9 z         3    3  3      4   6 z    11 z       2  4   z
 ---- - ---- - 4 a z  + a  z  - 2 z  - ---- - ----- + 3 a  z  + -- + 
   3     a                               4      2                5
  a                                     a      a                a

  5      5                      6      6    7    7
 z    4 z         5      6   2 z    5 z    z    z
 -- + ---- + 4 a z  + 3 z  + ---- + ---- + -- + --
  3    a                       4      2     3   a
a a a a
In[14]:=
{Vassiliev[2][Knot[8, 13]], Vassiliev[3][Knot[8, 13]]}
Out[14]=  
{0, 1}
In[15]:=
Kh[Knot[8, 13]][q, t]
Out[15]=  
3           1       2       1      2      2               3

- + 3 q + ----- + ----- + ----- + ---- + --- + 3 q t + 2 q t + q 7 3 5 2 3 2 3 q t

         q  t    q  t    q  t    q  t

    3  2      5  2    5  3      7  3    7  4    9  4    11  5
2 q t + 3 q t + q t + 2 q t + q t + q t + q t