Plot[1- (1 - p)^1500, {p, 1/1500, 1/800}]