Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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


  • 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.