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