BeginPackage["KnotTheory`ColouredJones4TorusKnots`", {"KnotTheory`"}]
Message[KnotTheory::loading, "ColouredJones4TorusKnots`"]

Begin["`Private`"]

TK=TorusKnot[3, 2]
ColouredJones[TK,2]=
 #1^2 + #1^5 - #1^7 + #1^8 - #1^9 - #1^10 + #1^11 & 

TK=TorusKnot[5, 2]
ColouredJones[TK,2]=
 #1^4 + #1^7 - #1^9 + #1^10 - #1^12 + #1^13 - 2*#1^15 + #1^16 - #1^18 + 
  #1^19 & 

TK=TorusKnot[7, 2]
ColouredJones[TK,2]=
 #1^6 + #1^9 - #1^11 + #1^12 - #1^14 + #1^15 - #1^17 + #1^18 - #1^20 - #1^23 + 
  #1^24 - #1^26 + #1^27 & 

TK=TorusKnot[4, 3]
ColouredJones[TK,2]=
 #1^6 + #1^9 + #1^12 - #1^13 - #1^16 - #1^19 + #1^20 - #1^22 + #1^23 & 

TK=TorusKnot[9, 2]
ColouredJones[TK,2]=
 #1^8 + #1^11 - #1^13 + #1^14 - #1^16 + #1^17 - #1^19 + #1^20 - #1^22 + 
  #1^23 - #1^25 + #1^26 - #1^27 - #1^28 + #1^29 - #1^31 + #1^32 - #1^34 + 
  #1^35 & 

TK=TorusKnot[5, 3]
ColouredJones[TK,2]=
 #1^8 + #1^11 + #1^14 - #1^15 + #1^17 - #1^18 - #1^19 + #1^20 - #1^21 - 
  #1^22 + #1^23 - #1^25 + #1^26 - #1^28 + #1^29 & 

TK=TorusKnot[11, 2]
ColouredJones[TK,2]=
 #1^10 + #1^13 - #1^15 + #1^16 - #1^18 + #1^19 - #1^21 + #1^22 - #1^24 + 
  #1^25 - #1^27 + #1^28 - #1^30 + #1^31 - 2*#1^33 + #1^34 - #1^36 + #1^37 - 
  #1^39 + #1^40 - #1^42 + #1^43 & 

TK=TorusKnot[13, 2]
ColouredJones[TK,2]=
 #1^12 + #1^15 - #1^17 + #1^18 - #1^20 + #1^21 - #1^23 + #1^24 - #1^26 + 
  #1^27 - #1^29 + #1^30 - #1^32 + #1^33 - #1^35 + #1^36 - #1^38 - #1^41 + 
  #1^42 - #1^44 + #1^45 - #1^47 + #1^48 - #1^50 + #1^51 & 

TK=TorusKnot[7, 3]
ColouredJones[TK,2]=
 #1^12 + #1^15 + #1^18 - #1^19 + #1^21 - #1^22 + #1^24 - #1^25 - #1^28 - 
  #1^31 + #1^32 - #1^34 + #1^35 - #1^37 + #1^38 - #1^40 + #1^41 & 

TK=TorusKnot[5, 4]
ColouredJones[TK,2]=
 #1^12 + #1^15 + #1^18 - #1^23 - #1^26 - #1^29 + #1^30 - #1^32 + #1^33 - 
  #1^35 + #1^36 - #1^38 + #1^39 & 

TK=TorusKnot[15, 2]
ColouredJones[TK,2]=
 #1^14 + #1^17 - #1^19 + #1^20 - #1^22 + #1^23 - #1^25 + #1^26 - #1^28 + 
  #1^29 - #1^31 + #1^32 - #1^34 + #1^35 - #1^37 + #1^38 - #1^40 + #1^41 - 
  #1^43 + #1^44 - #1^45 - #1^46 + #1^47 - #1^49 + #1^50 - #1^52 + #1^53 - 
  #1^55 + #1^56 - #1^58 + #1^59 & 

TK=TorusKnot[8, 3]
ColouredJones[TK,2]=
 #1^14 + #1^17 + #1^20 - #1^21 + #1^23 - #1^24 + #1^26 - #1^27 + #1^29 - 
  #1^30 - #1^31 + #1^32 - #1^33 - #1^34 + #1^35 - #1^37 + #1^38 - #1^40 + 
  #1^41 - #1^43 + #1^44 - #1^46 + #1^47 & 

TK=TorusKnot[17, 2]
ColouredJones[TK,2]=
 #1^16 + #1^19 - #1^21 + #1^22 - #1^24 + #1^25 - #1^27 + #1^28 - #1^30 + 
  #1^31 - #1^33 + #1^34 - #1^36 + #1^37 - #1^39 + #1^40 - #1^42 + #1^43 - 
  #1^45 + #1^46 - #1^48 + #1^49 - 2*#1^51 + #1^52 - #1^54 + #1^55 - #1^57 + 
  #1^58 - #1^60 + #1^61 - #1^63 + #1^64 - #1^66 + #1^67 & 

End[]; EndPackage[]

