SetDirectory["C:\\drorbn\\AcademicPensieve\\2016-09"];
<< OneSmidgen.m

Table[K->Crossings[K],{K,TorusKnots[48]}]

(Subscript[t, _])=t; Knot[3,1]//Z

Table[Echo[K->Timing[CF@Z[K]]],{K,TorusKnots[48]}]

tab=%;
tab >> TKTable.m

ListLogLogPlot[tab /. (TorusKnot[n_,k_]->{t_,z_}) :> Labeled[{n(k-1),t}, {n,k}]]