GraphingCalculator 3.5;
Window 46 6 758 646;
PaneDivider 221;
Slider 1 20;
SliderSteps 19;
SliderControlValue 0;
2D.BottomLeft -2.765625 -1.03125;
Expr y=ln([x]);
Color 2;
Expr y=sum([-1]^(k+1)*[x-1]^k/k,k=1,n);