plot[1-((x-1)/x)^x,{x,1,1000000}]