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