Re: Re: Writing a program to hunt for a prime between n^2 and (n+1)^2

*To*: mathgroup at smc.vnet.net*Subject*: [mg39206] Re: [mg39174] Re: Writing a program to hunt for a prime between n^2 and (n+1)^2*From*: Dr Bob <drbob at bigfoot.com>*Date*: Mon, 3 Feb 2003 01:10:50 -0500 (EST)*References*: <200302020613.BAA11818@smc.vnet.net> <oprjzr3bjbamtwdy@smtp.cox-internet.com>*Sender*: owner-wri-mathgroup at wolfram.com

<< NumberTheory`NumberTheoryFunctions` TableForm[{#, n = NextPrime[#^2], n - #^2, N[n/#^2]} & /@ Range[10, 100, 5], TableAlignments -> Center, TableHeadings -> {None, {"n", "First Prime > n^2 ", "Prime minus n^2", "Prime/n^2"}}] Bobby On Sun, 02 Feb 2003 18:10:13 -0600, Dr Bob <drbob at bigfoot.com> wrote: > << NumberTheory`NumberTheoryFunctions` > primeGTnSquare[n_] := NextPrime[n^2] > primeGTnSquare[5000] > > 25000009 > > or > > TableForm[{#, NextPrime[#^2]} & /@ Range[100], > TableAlignments -> Center, > TableHeadings -> {None, {"n", "First Prime > n^2"}}] > > or > > TableForm[{#, NextPrime[#^2]} & /@ Range[10, 100, 5], > TableAlignments -> Center, TableHeadings -> {None, {"n", "First Prime > > n^2"}}] > > Bobby > > On Sun, 2 Feb 2003 01:13:25 -0500 (EST), Diana > <diana53xiii at earthlink.remove13.net> wrote: > >> My program, which is not fancy: >> >> NRange = Flatten[{n, Range[10, 20, 1]}] >> >> NSquared = Flatten[NRange^2] >> >> NPlus1Squared = Flatten[(NRange+1)^2] >> >> FirstPrimeGreaterNSquared=Flatten[{"Prime>n^2",Table[NestWhile[#1+1&,n^2,!(P >> rimeQ[#1])&],{n,10,20}]}] >> >> {NRange, NSquared, FirstPrimeGreaterNSquared, NPlus1Squared} // >> TableForm >> >> Are there ideas to make this more snazzy, and accomplish the same thing? >> >> Thanks, >> >> Diana >> >> "Diana" <diana53xiii at earthlink.remove13.net> wrote in message news:... >>> Folks, >>> >>> I am trying to come up with a snazzy way to hunt for a prime between >>> n^2 >> and >>> (n+1)^2. >>> >>> Some ideas? >>> >>> Thanks, Diana >>> -- >>> ===================================================== >>> "God made the integers, all else is the work of man." >>> L. Kronecker, Jahresber. DMV 2, S. 19. >>> >>> >> >> >> > > > -- majort at cox-internet.com Bobby R. Treat

**References**:**Re: Writing a program to hunt for a prime between n^2 and (n+1)^2***From:*"Diana" <diana53xiii@earthlink.remove13.net>