FactorInteger[105]

teethcirc=105;teethdisk=32; rcircle=teethcirc/Pi; rdisk=teethdisk/(Pi);
pendist=.7 rdisk;  div=teethdisk;
x[t_]:= (rcircle-rdisk)Cos[rdisk/rcircle t]+pendist Cos[ (rcircle-rdisk)/rcircle t];
y[t_]:=(rcircle-rdisk)Sin[rdisk/rcircle t]-pendist Sin[(rcircle-rdisk)/rcircle t];
ParametricPlot[{x[t],y[t]}, {t,0,250Pi}, AspectRatio->Automatic]