MathGroup Archive 2007

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

Search the Archive

How do quickest


How do quickest following very slowly procedure:
a = {3}; For[k = 1 + a[[Length[
     a]]], Length[a] < 13, While[! IntegerQ[Sqrt[(k)^2 + Sum[(a[[t]])^2,  
{t, 1,
    Length[a]}]]], k++]; AppendTo[a, k]]; a

ARTUR


  • Prev by Date: Zeroes of Zeta function
  • Next by Date: Options for Histogram3D
  • Previous by thread: Zeroes of Zeta function
  • Next by thread: Re: How do quickest