SetDirectory["C:\\drorbn\\AcademicPensieve\\People\\Roukema"];
<< KnotTheory`

Column[(#->Jones[#][q])& /@ AllKnots[{0,10}]]

(#->Jones[#][q])& /@ AllKnots[{0,10}] >> JonesForRolfsen.txt