Pensieve header: Compute and store Kh, and HOMFLYPT for knots with up to 15 crossings

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\APAI\\Data"];

Once[<<KnotTheory`];

Monitor[Table[K->Kh[PD@K][q,t],{K,AllKnots[{3,7}]}] >> "Kh3-7.m", K]

Monitor[Table[K->HOMFLYPT[PD@K][a,z],{K,AllKnots[{3,7}]}] >> "HOMFLYPT3-7.m", K]

Monitor[Table[K->Kh[PD@K][q,t],{K,AllKnots[{3,15}]}] >> "Kh3-15.m", K]

Monitor[Table[K->HOMFLYPT[PD@K][a,z],{K,AllKnots[{3,15}]}] >> "Data/HOMFLYPT3-15.m", K]