n = 1; x = 1; 
    While[n < 5 ∧ x > .125 , {Print[n,  "  ",  x], n++, 
        x = x/2}]

Plot[ Sin[Exp[x]] /x,  {x, 1, 5}]