plot max[49,round[(115.382 - 22.5265*0.682854*1.014495^(1000/x))]] x = 1 to 100