<< KnotTheory`

GaussCode[Knot[3,1]]

GaussCode[Knot[13,Alternating, 1]]

GaussCode[Knot[16,NonAlternating, 101]]

GaussCode[Knot[16,NonAlternating, #]]& /@ Range[10] // ColumnForm