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

MathGroup Archive 2007

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

Search the Archive

How to do quickest

  • To: mathgroup at smc.vnet.net
  • Subject: [mg73035] How to do quickest
  • From: Artur <grafix at csl.pl>
  • Date: Tue, 30 Jan 2007 07:00:19 -0500 (EST)
  • References: <epf93g$buf$1@smc.vnet.net> <200701290939.EAA12706@smc.vnet.net>

Probably these procedure isn't possible to do much quicker because limit  
is time of single PrimeQ checking but mayby somebody is able do some  
quickest (these procedure looking for prime numbers of the form  
1+4+4^2+4^3+...4^x (mayby number 5 is only one such number ???):

a = {}; k = 0; Timing[Do[k = k + 4^x; If[
   PrimeQ[k], Print[k]; AppendTo[a, k]], {x, 0, 10000}]; a]

PrimeQ is relatively quick but working only up to upper limit, later is  
necessary uses NumberTheory packagae and much more slowest procedures.

BEST WISHES
ARTUR




  • Prev by Date: Re: Numerical quantifier elimination
  • Next by Date: Problem with ExpIntegralEi vs. LogIntegral
  • Previous by thread: Re: NDSolve -- initial conditions
  • Next by thread: Re: How to do quickest