|
| |
| |
|
|
|
126, 846, 1260, 7920, 8460, 11760, 10856, 14595, 17700, 43632, 45888, 49308, 83142, 62700, 71145, 73962, 96576, 83904, 107550, 88730, 178800, 112672, 131100, 125856, 168730, 149952, 196650, 203432, 206752, 224928, 306612, 365700, 399592, 419256, 460640, 548550
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
如果n的除数是p^{y_a2^A}形式的除数的乘积，则称其为无穷大，其中p^y是n的素数幂，sum_ay_a2 ^A是y的二进制表示。
|
|
|
链接
|
Jan Munch Pedersen，等分循环表.
|
|
|
配方奶粉
|
n的值，其中isigma（m）=isigma。
|
|
|
例子
|
a（5）=8460，因为第五个无限友好对是（59408460），8460是其最大的成员。
|
|
|
数学
|
指数列表[n_Integer，factors_List]：={#，IntegerExponent[n，#]}&/@factors；无穷除数[1]：={1}；无限除数[n_Integer？正]：=模块[{factors=First/@FactorInteger[n]，d=Divisors[n]}，d[[Flatten[Position[Transpose[Thread[Function[{f，g}，BitOr[f，g]==g][#，Last[#]]]&/@Transpose[Last/@ExponentList[#，factors]//@d]]，_？（和@@#&），{1}]]]]]空；properinfinitarydivisorsum[k_]：=加@@InfinitaryDivisors[k]-k；InfinitaryAmicableNumberQ[k_]：=如果[Nest[properinfinitarydivisorsum，k，2]==k&&！properinfinitarydivisorsum[k]==k，真，假]；data1=选择[Range[10^6]，InfinitaryAmicableNumberQ[#]&]；数据2=properinfinitarydivisorsum[#]&/@data1；data3=表[{data1[[k]]，data2[[k]]}，{k，1，长度[data1]}]；data4=选择[data3，First[#]<Last[#]&]；表[Last[data4[[k]]]，{k，1，Length[data4]}]
fun[p_，e_]：=模块[{b=整数位数[e，2]}，m=长度[b]；乘积[如果[b[[j]]>0，1+p^（2^（m-j）），1]，{j，1，m}]]；infs[n_]：=次数@@（fun@@@FactorInteger[n]）-n；s={}；做[k=infs[n]；如果[k>n&&infs[k]==n，追加到[s，k]]，{n，2，10^5}]；秒(*阿米拉姆·埃尔达尔2019年1月22日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
