<< KnotTheory`
CreateWikiConnection[
"http://katlas.org/w/index.php",
uid="DrorsRobot",
InputString["Password for "<>uid<>"?"]
];
WikiUserName[]

K=Knot["K13a1098"]

"<math>"<>ToString[Jones[K][q], TeXForm]<>"</math>"

"Data:"<>NameString[K]<>"/Jones_Polynomial"

do[K_] := WikiSetPageText[
"Data:"<>NameString[K]<>"/Jones_Polynomial",
"<math>"<>ToString[Jones[K][q], TeXForm]<>"</math>"
]

do[K]

(Print[out=(# -> APUpload[#])]; out)& /@ AllKnots[];

Plus @@ (Last /@ %)

Ks=TorusKnots[36]

(Print[out=(# -> APUpload[#])]; out)& /@ Ks;

Plus @@ (Last /@ %)