MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mathematica program generating sequence of points stalls for no apparent reason.


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


  • Prev by Date: Re: For Loop and Array related
  • Next by Date: Re: a question about plot a list of functions.
  • Previous by thread: Re: Mathematica program generating sequence of points stalls for no apparent reason.
  • Next by thread: Re: Mathematica program generating sequence of points stalls for no apparent reason.