A129657-OEIS公司

A129657号

无限亏数：其中的整数A126168号（n） <n，或等效值，其中A049417号（n） <2个。

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 71, 73, 74, 75, 76, 77, 79, 80, 81, 82, 83, 84 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`对于大n，a（n）的分布近似线性，且渐近满足a（n）~1.144n。由此得出无穷亏损数的密度为1/1.144，约为0.874。`
	链接	`阿米拉姆·埃尔达尔，n=1..10000时的n，a（n）表` `格雷姆·L·科恩，关于整数的无穷除数《计算数学》，第54卷，第189期，（1990年），第395-411页。` `埃里克·魏斯坦的数学世界，无限除数.`
	例子	`超过其适当的无限除数和的第六个整数是7。因此a（6）=7。`
	数学	指数列表[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；InfinitaryDeficientNumberQ[k_]：=如果[properinfinitarydivisorsum[k]<k，True，False]；选择[Range[100]，InfinityDeficientNumberQ[#]&]（程序结束） `fun[p_，e_]：=模块[{b=整数位数[e，2]}，m=长度[b]；乘积[如果[b[[j]]>0，1+p^（2^（m-j）），1]，{j，1，m}]]；isigma[1]=1；isigma[n_]：=倍@@fun@@FactorInteger[n]；选择[Range[100]，isigma[#]<2#&](阿米拉姆·埃尔达尔2019年6月9日）`
	交叉参考	`囊性纤维变性。A126168号,A049417号,A127666号,A129656号,A007357号.` `上下文中的序列：A272978型 A080907号 A127161号A249407型 A360305型 A103679号` `相邻序列：A129654号 A129655型 A129656号129658英镑 A129659号 A129660型`
	关键词	`容易的,非n`
	作者	`蚂蚁王，2007年4月29日`
	状态	`经核准的`