Re: Percentage of Primes
- To: mathgroup at smc.vnet.net
- Subject: [mg128195] Re: Percentage of Primes
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Sun, 23 Sep 2012 02:59:53 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
On 9/22/12 at 2:47 AM, eggers.jared at gmail.com (Jared E) wrote:
>I'm brand new to Mathematica, so there's only so much I can teach
>myself by playing around with it. Could somebody give me some
>sample code for displaying a graph of the percentage of primes from,
>say, 1 to 1000. The x-axis would be the integers from 1 to 1000 and
>the y-axis would indicate the density of primes from 1 to n. I can
>then figure out how to apply this code to other types of problems.
Code for doing what you describe is pretty simple if you take
use of built-in functions Mathematica offers. For example,
DiscretePlot[PrimePi[n]/n, {n, 2, 1000}, PlotRange -> All]
or perhaps a log scale provides a better display
ListLogPlot[Table[{n, PrimePi[n]/n}, {n, 2, 1000}], PlotRange -> All]