Export["anim.gif", Table[ ListPlot[ Table[ it = Normal[Series[Log[z + 1] , {z, 0, n}]] /. z -> Exp[(\[Pi] - 1/3) I]; {Re[it], Im[it]}, {n, 0, a} ], PlotRange...
