[Date Index]
[Thread Index]
[Author Index]
Question about shape of histogram of minimal prime partition p's
*To*: mathgroup at smc.vnet.net
*Subject*: [mg49440] Question about shape of histogram of minimal prime partition p's
*From*: gilmar.rodriguez at nwfwmd.state.fl.us (Gilmar Rodr?guez Pierluissi)
*Date*: Tue, 20 Jul 2004 07:53:31 -0400 (EDT)
*Sender*: owner-wri-mathgroup at wolfram.com
The following algorithm:
MGPPP[n_] := Module[{p, q},{m = n/2; If[(Element[m, Primes]),
{(p = m),(q = m)}, {k = PrimePi[m];
Do[If[Element[(n - Prime[i]), Primes],
{hit = i, Break[]}], {i, k, 1, -1}],
p = Prime[hit], q = (n - p)}]}; {p,q}]
calculates the Minimal Goldbach Prime Partition Point corresponding
to n, for n Even, and n >= 4.
Here the word "Minimal" means that,
(1.) MGPPP[n] = {n/2, n/2}, if n = 2*p, with p a prime, or
(2.) If n =/= 2*p then MGPPP[n] is the point with the shortest
perpendicular distance to the point {n/2, n/2},
(here of course, we are assuming that such a point exists;
since otherwise we would be famous)
among all prime partition points {p, q}, with 2 =< p < n/2,
and n/2 < q < (n - 2) resting on the line y = - x + n.
Examples: MGPPP[14] = {7,7} and MGPPP[100]= {47, 53}.
A slight modification of the above algorithm given by:
MGp[n_] := Module[{p},{m = n/2; If[(Element[m, Primes]),
{(p = m), (q = m)},{k = PrimePi[m];
Do[If[Element[(n - Prime[i]), Primes],
{hit = i, Break[]}], {i, k, 1, -1}],
p = Prime[hit], q = (n - p)}]}; p]
gives the "minimal p" corresponding to n.
Examples: MGp[14] = 7 and MGp[100]= 47.
The first 500,000 minimal p's can be calculated via:
data = Table[MGp[n],{n, 4, 10^6 , 2}];
If you now call:
<<Graphics`Graphics`
and do:
Histogram[data]
you get an essentially FLAT histogram, with the highest bars
not exceeding a frequency value of 600 (or so).
My questions are: is this histogram correct, and if it is correct
how do you interpret it from a statistical point of view?
Is this an example of n-mode distribution? Please, elaborate.
Thank you!
Prev by Date:
**Re: Return different values of a list**
Next by Date:
**RE: Why aboluteoptions doesn't work here?**
Previous by thread:
**RE: 7 equations and 7 unknowns (non-linear equations)**
Next by thread:
**Re: Question about shape of histogram of minimal prime partition p's**
| |