Povzetek

OpisMeissel–Mertens constant definition.svg	English: A plot showing the definition of the Meissel–Mertens constant as the difference in the limit between the sum of the reciprocals of primes p < n, and ln(ln(n)). The x axis is ${\displaystyle n}$ and is logarithmic (labelled in evenly spaced powers of 10), going up to 106. Source used to generate this chart is shown below.
Datum	21. marca 2013
Vir	lastno delo   Ta W3C-nedoločena vektorska slika je bila ustvarjena z Mathematica.
Avtor	User:Dcoetzee

Licenca

Jaz, imetnik avtorskih pravic na tem delu, ga objavljam pod naslednjo licenco:

Datoteka je na voljo pod licenco Creative Commons Univerzalna izročitev v javno domeno CC0 1.0

Oseba, ki je delo povezala s tem dovoljenjem, je dala svoje delo v javno domeno z opustitvijo vseh svojih pravic do dela po vsem svetu pod avtorskim pravom, vključno z vsemi povezanimi in sorodnimi pravicami, v obsegu, kot ga dopušča zakonodaja. Delo lahko kopirate, spreminjate, razširjate in izvajate, tudi v gospodarske namene, ne da bi morali zaprositi za dovoljenje. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Source

All source released under 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_] := Apply[Plus, Take[primerecip, PrimePi[x]]];
base = N[E^(Log[10^6]/600)];
t = Table[{base^x, g[base^x]}, {x, 1, Floor[Log[base, 10^6]] - 1}];
Show[ListLogLinearPlot[t, Joined -> True], 
 LogLinearPlot[Log[Log[x]], {x, 1, 10^6}, 
  PlotStyle -> ColorData[1, 2]], LabelStyle -> FontSize -> 14]

LaTeX source for labels:

$$ \sum_{{\scriptstyle p\scriptsize\textrm{ prime }}\atop {\scriptstyle p\le n}}\frac1p $$
$$ \ln(\ln(n)) $$

These were converted to SVG with [1] and then the graph was embedded into the resulting document in Inkscape. Axis fonts were also converted to Liberation Serif and arrow was added in Inkscape.