Perfect numbers: Difference between revisions

Content added Content deleted
Line 2,841: Line 2,841:
[n|n<-[1..10^4],sigma(n,-1)==2]
[n|n<-[1..10^4],sigma(n,-1)==2]
</syntaxhighlight>
</syntaxhighlight>

{{Out}}
<pre>
[6, 28, 496, 8128]
</pre>


===Faster with Lucas-Lehmer test===
===Faster with Lucas-Lehmer test===