DiscretePlot[Log[PrimeZetaP[n]], {n, 2, 50}]