Stick Number

Author

Eric W. Weisstein
May 25, 2007

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

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

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

Syntax

KnotData["StickNumber","Description"]

Table

KnotData["StickNumber","Missing"]

Print

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