I am having trouble achieving this effect with on the x-axis. Does anybody have an idea how I can achieve this effect?
1 Answer
$\begingroup$
$\endgroup$
LogLinearPlot[{PrimePi[x]/(LogIntegral[x]-LogIntegral[2]),
PrimePi[x]/(x/Log[x])}, {x, 2, 10000000}, GridLines -> {None, {1}}]
Thanks: @J.M.iscomputer-less for the LogIntegral[2]
correction.
LogIntegral[x] - LogIntegral[2]
. $\endgroup$