SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\UBC-241004"]

θs=Get["../../Projects/HigherRank/Data/theta3-15.m"]

Length[θs]

Length[Hs=Get["../../Projects/HigherRank/Data/HOMFLYPT3-15.m"]]

Length[Khs=Get["../../Projects/HigherRank/Data/Kh3-15.m"]]

HKhs=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{Hs,Khs}]

HKhθs=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{HKhs,θs}]

Stats[n_]:=Module[{a,b},
{a=Length@Select[θs,#[[1,1]]<=n&],
b=Length@Union@Expand[Last/@Select[HKhs,#[[1,1]]<=n&]],b-a,
b=Length@Union@Expand[Last/@Select[θs,#[[1,1]]<=n&]/.T2->1],b-a,
b=Length@Union@Expand[Last/@Select[θs,#[[1,1]]<=n&]],b-a,
b=Length@Union@Expand[Last/@Select[HKhθs,#[[1,1]]<=n&]],b-a
}]

Stats[10]

Stats[11]

Stats[12]

Stats[13]

Stats[14]

((-10788)/(-1118))//N

Stats[15]

((-70245)/(-6758))//N