Pensieve header: The 1-smidgen invariant on 11-crossing knots.

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

z[K_Knot] := (K/.tab)[[2]];
za[K_Knot] := z[K][[1]];
zp1[K_Knot] := Factor[((z[K][[4]] /. c|u|w->0)/((t-1)((za[K])^2)))];
zp2[K_Knot] := Factor[((Coefficient[z[K][[4]],c])/((t-1/t)(-4-t+(t^2))((za[K])^3)))];

(Subscript[t, _])=t;

tab11=Table[Echo[K->Timing[Z[K]]], {K,AllKnots[{11,11}]}]

tab11>>tab11.m

Length[tab=Get["tab.m"]⋃tab11]

Union[tab[[All,2,2,4]]] // Length

Length@Union[Jones /@ AllKnots[{0,11}]]

Length@Union[Kh /@ AllKnots[{0,11}]]

Length@Union[HOMFLYPT /@ AllKnots[{0,11}]]

Length@Union[Alexander /@ AllKnots[{0,11}]]

Length@Union[II[HOMFLYPT[#], Kh[#]]& /@ AllKnots[{0,11}]]

Length@Union[II[HOMFLYPT[#], Kh[#]]& /@ AllKnots[{0,10}]]