Signature

Author

Eric W. Weisstein
October 5, 2008

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

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

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

Unknown

KnotData["Signature","Missing"]

KnotData["Unknot","Signature"]

Table

Print

With[{n=50},TableForm[Transpose[Partition[PadRight[l="$"<>ToString[First[#]]<>"_{"<>ToString[Last[#]]<>"}$"<>"  $"<>ToString[KnotData[#,"Signature"]/._Missing->"?"]<>"$ "&/@KnotData[All],n Ceiling[Length[l]/n],""],n]],TableDepth->2]
]

HTML

With[{n=30},TableForm[Transpose[Partition[PadRight[l="$"<>ToString[First[#]]<>"_{"<>ToString[Last[#]]<>"}$"<>"  $"<>ToString[KnotData[#,"Signature"]/._Missing->"?"]<>"$ "&/@KnotData[All],n Ceiling[Length[l]/n],""],n]],TableDepth->2]
]