|
| |
|
| A274205型 |
| 除数之和是指数除数之和的两倍的数。 |
|
0
|
|
|
|
6, 24, 54, 216, 1638, 6552, 14256, 55860, 80262, 276822, 321048, 502740, 1107288, 1396500, 1724976, 12568500, 13564278, 20165460, 54257112, 168836850, 181489140, 504136500, 675347400, 4537228500, 28533427650, 60950102850, 114133710600, 162252212850, 243800411400, 649008851400, 734916514878
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
所有术语似乎都是6的倍数。
a（32）>10^12。如果p*r是一个项，其中p是质数，r不能被p整除，那么p^3*r也是一个项-乔瓦尼·雷斯塔2016年6月15日
|
|
|
链接
|
|
|
|
例子
|
6的除数是1、2、3和6，其和为12。唯一的指数除数是6。最后12/6=2。
24的除数是1、2、3、4、6、8、12、24，其和为60。指数除数是6，24，它们的和是30。最后60/30=2。
|
|
|
MAPLE公司
|
使用（数字理论）：P:=proc（q）局部a，b，c，d，j，k，n，ok；
对于从2到q的n，做a:=ifactors（n）[2]；b： =排序（[op（除数（n））]）；c： =0；
对于k从2到nops（b）做d：=ifactors（b[k]）[2]；如果nops（d）=nops（a），则
确定：=1；对于从1到nops（d）的j，如果不键入（a[j][2]/d[j][2]，integer），则ok：=0；断裂；fi；od；
如果ok=1，则c:=c+b[k]；fi；fi；od；如果sigma（n）=2*c，则打印（n）；fi；od；结束：P（10^9）；
|
|
|
数学
|
选择[Range[10^6]，2 Times@@Map[Sum[First[#]^d，{d，Divisors@Last@#}]&，FactorInteger@#]==DivisorSigma[1，#]&](*迈克尔·德弗利格2016年6月16日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
