Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

How do little quickest ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg93475] How do little quickest ?
  • From: Artur <grafix at csl.pl>
  • Date: Mon, 10 Nov 2008 03:31:17 -0500 (EST)
  • References: <gf3mj0$en2$1@smc.vnet.net> <200811091026.FAA20573@smc.vnet.net>
  • Reply-to: grafix at csl.pl

Dear Mathematica Gurus!
Who know how do quickest following prcedure:

aa = {}; Do[Print[x]; rmin = 10^10; k = 2^x; w = Floor[(k - 1)/2];
 Do[If[GCD[n, k, k - n] == 1, m = FactorInteger[k n (k - n)]; rad = 1;
    Do[rad = rad m[[s]][[1]], {s, 1, Length[m]}];
   If[rad < rmin, rmin = rad]], {n, 1, w}];
 AppendTo[aa, rmin], {x, 2, 30}]; aa

Best wishes
Artur


  • Prev by Date: Transforming an initial condition of a solved ODE into a new
  • Next by Date: Just a Curiosity (to me at least) on NMaximize and FindMaximum
  • Previous by thread: Re: NIntegrate[UnitStep[...]PDF[...],{x,...}] hard to integrate
  • Next by thread: Re: How do little quickest ?