LogLinearPlot[ (100* (1-(1-0.0933)^n)), {n,1,100}]