Re: Percentage of Primes

*To*: mathgroup at smc.vnet.net*Subject*: [mg128196] Re: Percentage of Primes*From*: James Stein <mathgroup at stein.org>*Date*: Sun, 23 Sep 2012 03:00:13 -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*References*: <20120922064747.0DFD4685F@smc.vnet.net>

I think you have not spend much time with the "Core Language" tutorial. A little reading at the beginning will pay big dividends. For what is's worth, here's relatively simple code: Clear [ f ] ; f [ 1 ] = 0 ; f [ n_ ] := f [ n ] = f [ n - 1 ] + If [ PrimeQ [ n ], 1, 0 ] ; ListPlot [ Table [ f [ k ] / k, { k, 1000 } ] ] On Fri, Sep 21, 2012 at 11:47 PM, Jared E <eggers.jared at gmail.com> 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. Thanks, Jared > >

**References**:**Percentage of Primes***From:*Jared E <eggers.jared@gmail.com>