求完全数
完全数的计算方法 -
例如p=2，是一个质数，2^p-1=3也是质数，（2^p-1）X2^（p-1）3X2=6，是完全数。例如p=3，是一个质数，2^p-1=7也是质数，（2^p-1）X2^（p-1）7X4=28，是完全数。例如p=5，是一个质数，2^p-1=31也是质数，（2^p-1）X2^（p-1）31X16=496是完全数。但是2^p-1希望你能满意。
欧几里德曾推算出完全数的获得公式：如果2^p-1是质数，那么(2^p-1)2^(p-1)便是一个完全数.p=2,2^p-1=3是质数，(2^p-1)2^(p-1)=3*2=6,p=3,2^p-1=7是质数，(2^p-1)2^(p-1)=7*4=28 完全数不多，迄今也只发现不到50个，因为满足2^p-1是质数的情况并不多.
例如p=2，是一个质数，2^p-1=3也是质数，（2^p-1）X2^（p-1）3X2=6，是完全数。例如p=3，是一个质数，2^p-1=7也是质数，（2^p-1）X2^（p-1）7X4=28，是完全数。例如p=5，是一个质数，2^p-1=31也是质数，（2^p-1）X2^（p-1）31X16=496是完全数。但是2^p-1希望你能满意。
欧几里德曾推算出完全数的获得公式：如果2^p-1是质数，那么(2^p-1)2^(p-1)便是一个完全数.p=2,2^p-1=3是质数，(2^p-1)2^(p-1)=3*2=6,p=3,2^p-1=7是质数，(2^p-1)2^(p-1)=7*4=28 完全数不多，迄今也只发现不到50个，因为满足2^p-1是质数的情况并不多.
我们这就计算出，连续奇数立方数相加，当最后一个奇数数值是 2^[(n+1)/2] - 1的时候，这最后一个奇数在连续自然数组（4）式中所占区域的最后一个数同样也是特性系数为n的完全数的梅森尼数2^n-1。再说得简单和明白一点，那就是说，完全数可以写成连续自然数相加，而这个连续自然数又可以写到此结束了？。
例如p=5，是一个质数，2^p-1=31也是质数，（2^p-1）X2^（p-1）31X16=496是完全数。
什么叫做完美数? -
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。如果一个数恰好等于它的因子之和，则称该数为“完全数”。第一个完全数是6，第二个完全数是28，第三个完全数是496，后面的完全数还有8128、33550336有帮助请点赞。
求10000以内的完全数。``vb Dim a as Integer,b as Integer,c as Integer For a = 1 To 10000 c = 0 For b = 1 To a \ 2 If a Mod b = 0 Then c = c + b Next b If a = c Then Print Str(a)Next a ```5. **C语言**：求1000以内的完全数。``c include 还有呢？
求教一个完美数的算法?能算至少20个,必有重谢!!! -
第20个对应p=4423，有1332位长。大概的算法是这样：（a^k表示a的k次方，不是C/C++中的异或）1.用筛法求10000以内素数；2.对每个素数p，用miller-robin算法判定(2^p-1)是否为素数；2.1 若2^p-1为素数，计算出(2^p-1)*(2^(p-1))即为完全数。这个范围的完全数共有26个，需要实现高是什么。
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数：它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3＝6。第二个完全数是28，后面的数是496、8128等等。
什么是完全数? -
6的因数共有4个：l、2、3、6，除了6自身这个因数以外，其他的3个都是它的真因数，数学家们发现：把6的所有美因数都加起来，正好等于6这个自然数本身！数学上，具有这种性质的自然数叫做完全数。例如，28也是一个完全数，它的真因数有1、2、4、7、14，而1＋2＋4＋7＋14正好等于28。在自然是什么。
以1000以内的完全数为例：include<iostream> using namespace std;int main(){ int x,i,sum;x=1;while(x<=1000) //x要从1到1000循环。 sum=0; //每算一个新的x时，sum要清0 for(i=1;i<x;i++){ if(x%i==0) sum+=i; //如果i是x的因子，sum加上i } if(x==sum) //等我继续说。