Vamos a generar 20 términos de la sucesión (1/(2^n))

x=(1/2.);
lista={};
For[i=1,i≤20,i++,
               AppendTo[lista,x];
               x=N[((Round[(10^6)(x/2)])/(10^6))]]
lista