Plot[{Floor[Sqrt[x]], PrimePi[x/2]}, {x, 0, 10000}]