Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Shorter Version?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg106351] Shorter Version?
  • From: Osman Tuna <osmantunagokgoz at yahoo.com>
  • Date: Sun, 10 Jan 2010 03:28:58 -0500 (EST)

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