f[x_]:=x^3-3x+1

Plot[f[x],{x,-3,3}]

g[x_]:=x-f[x]/f'[x]

NestList[g,0.1,7]//TableForm

g60[x_]:=N[g[x],60]

NestList[g60,1/10,7]//TableForm