Plot[{PrimePi[n],n/Log[n],n/(Log[n]-1)},{n,5,300}]