Image:ChebyshevPsi.png

From Wikipedia, the free encyclopedia

Image
File history
File links

No higher resolution available.
ChebyshevPsi.png‎ (499 × 308 pixels, file size: 7 KB, MIME type: image/png)

[edit] Summary

Plot of Chebyshev's $ψ$ function, along with the approximation $x - log2π$ . This function can be defined in Mathematica by:

ψ[n_] := Sum[If[PrimeQ[p], Floor[Log[n]/Log[p]] Log[p], 0], {p, 2, n}]
SetAttributes[ψ, Listable]

The above plot was then generated by:

 Plot[{ψ[n], n - Log[2π]}, {n, 0, 50}, 
   AxesLabel -> {n, "ψ(n)"},
   TextStyle -> {FontFamily -> "Times", FontSize -> 16},
   PlotStyle -> {{Hue[0.6], Thickness[0.006]}, {RGBColor[0, 0, 0]}}]

[edit] Licensing

I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide.

In case this is not legally possible,

I grant any entity the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

File history

Click on a date/time to view the file as it appeared at that time.

	Date/Time	Dimensions	User	Comment
current	17:25, 2 July 2006	499×308 (7 KB)	Dantheox (Talk \| contribs)	(Plot of Chebyshev's <math>\psi</math> function, along with the approximation <math>x-\log 2\pi</math>. This function can be defined in Mathematica by: ψ[n_] := Sum[If[PrimeQ[p], Floor[Log[n]/Log[p]] Log[p], 0], {p, 2, n}] SetAttributes[ψ, Listabl)