Alternating Knot

Author

Eric W. Weisstein
May 26, 2007

This notebook downloaded from https://mathworld.wolfram.com/notebooks/KnotTheory/AlternatingKnot.nb.

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

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

Enumeration

non=KnotData["Nonalternating"]

Tally[First/@non]

GraphicsGrid[{Show[KnotData[#,"Image"],PlotLabel->TraditionalForm[KnotData[#,"AlexanderBriggsNotation"]]]&/@Select[non,First[#]<9&]},ImageSize->500]