Double[x_]:=FractionalPart[2*x];
 NestList[Double, 1/3, 100]
 NestList[Double, N[1/3], 100]