Install KnotTheory`

\(\(installPath = "c:\scott\math.berkeley.edu\Work\Mathematica\KnotAtlas\";\)\)

SetDirectory[installPath]

<< KnotTheory`

<< KnotTheoryExtra`

Generate the table entries

KnotTableImage[K_] := "{{Knot Table Image|" <> 
        NameString[K] <> "}}\n"

KnotTableImage[Knot[8, 1]]

KnotTable[knots_, m_] := 
      StringJoin @@ 
        Table[KnotTableImage[
              knots[[i]]] <> 
            If[Mod[i, m] == 0, "|-\n", ""], {i, 1, 
            Length[knots]}]

KnotTable[AllLinks[11, NonAlternating], 12]