Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: How do little quickest ?
    • From: Daniel Lichtblau <danl@wolfram.com>
  • Re: How do little quickest ?
    • From: Artur <grafix@csl.pl>

• References:
  • Re: NIntegrate[UnitStep[...]PDF[...],{x,...}] hard to integrate
    • From: er <erwann.rogard@gmail.com>