i = 1024;
While[i > 0,
 Print[i];
 i = Floor[i/2];
]