Nonalternating Knot

Author

Eric W. Weisstein
November 30, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/KnotTheory/NonalternatingKnot.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/NonalternatingKnot.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Table

non=KnotData["Nonalternating"]

"$"<>#1<>"_{"<>#2<>"}$"&@@@Map[ToString,non,{2}]

Length/@Split[non[[All,1]]]

KnotData["Nonalternating",;;9]

GraphicsGrid[Map[Show[KnotData[#],PlotLabel->Subscript@@#]&,Cases[non,{#,_}]&/@{8},{2}],ImageSize->400]