CC0 waiver. Mathematica source to generate graph (which was then saved as SVG from Mathematica): primerecip = Table[N[1/Prime[n]], {n, 1, 10000000}]; g[x_] :=...
