MathGroup Archive 2010

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

Search the Archive

Shorter Version?


I wrote a code to generate perfect number, can you suggest a short code to make same thing as my code?

Thank you...

Manipulate[
 ListPlot[{Table[2*x - Total[Divisors[x]], {x, p}],
   Partition[
    Append[Riffle[
      Flatten[Position[Table[2*x - Total[Divisors[x]], {x, p}], 0]], 
      0], 0], 2]}, PlotMarkers -> Automatic, PlotRange -> All, 
  PlotStyle -> {Red, Black}, AspectRatio -> 1, 
  PlotLabel -> 
   Flatten[Position[Table[2*x - Total[Divisors[x]], {x, p}], 
     0]]], {{p, 100, "Search for 1 to"}, 100, 10000, 100}]


Osman Tuna


  • Prev by Date: Radicals simplify
  • Next by Date: ODE Stiff Systems
  • Previous by thread: Re: Radicals simplify
  • Next by thread: ODE Stiff Systems