Re: Mathematica program generating sequence of points stalls for no apparent reason.
- To: mathgroup at smc.vnet.net
- Subject: [mg58221] Re: Mathematica program generating sequence of points stalls for no apparent reason.
- From: "Gilmar" <gilmar.rodriguez at nwfwmd.state.fl.us>
- Date: Thu, 23 Jun 2005 05:33:59 -0400 (EDT)
- References: <d8rik6$ig3$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Well; at least I now know why the program seemed to be stalling
earlier.
As of today 06-22-05, I ran the program up to n =151,750,538.
For instance; my latest evaluation:
Clear[h]
h[n_]:=For[p = n/2, True,
p--,If[PrimeQ[p]&&PrimeQ[n-p],Return[n/2-p]]];
Off[General::spell1]
For[n=140000000;max=-1, True, n+=2,
If[h[n]>max,Print[{n,h[n]}];max=h[n]]]
gives:
{140000000,27}
{140000002,102}
{140000008,153}
{140000020,273}
{140000036,399}
{140000038,612}
{140000062,708}
{140000122,762}
{140000158,1200}
{140000296,1209}
{140000506,1260}
{140001298,1758}
{140010734,1800}
{140013278,2028}
{140055614,2256}
{140323714,2310}
{140406908,2343}
{140554468,2457}
{141379024,2589}
{141512954,2616}
{141655684,2859}
{145519672,3045}
{148723346,3066}
{151750538,3192}
I find very interesting that for n in the interval:
(115978712, 151750538],
no ordinate n/2 - p of {n, n/2 - p} has exceeded the value 4395.
Has anyone found a point {n, n/2 - p} with n/2-p > 4395 and
n > 151750538 yet?
Thank you!
Gilmar Rodriguez Pierluissi