Plot[LogIntegral[z], {z, 1, 30}]