%I#23 2022年9月9日04:19:39

%S 94510395122851501516065179551930519635217352194523205，

%电话：23625245259352652740525252887529295298353139533345，

%电话：3349533915341253415494965335805371253874539585406354105542315

%N奇数无穷丰富数。

%这也是奇数整数序列，其无限等分序列最初增加。根据经验证据（高达1000万），这仅适用于约0.1%的奇数整数。

%C不超过10^k的项数，k=4，5。。。，是1、77、473、5703、53569、561610、5525461、54979537。显然，这个序列的渐近密度是存在的，等于0.0005….-_Amiram Eldar，2022年9月9日

%H Amiram Eldar，n的表，n的a（n）=1..10000</a>

%H Graeme L.Cohen，<a href=“http://dx.doi.org/10.1090/S0025-5718-1990-0993927-5“>关于整数的无穷除数，《数学比较》，第54卷，第189期，（1990），395-411。

%H J.O.M.Pedersen，<a href=“http://amicable.homepage.dk/tables.htm“>等分循环表

%H J.O.M.Pedersen，<a href=“http://web.archive.org/web/20140502102524/http://amicable.homepage.dk/tables.htm“>等分周期表

%H J.O.M.Pedersen，等分周期表

%F n的奇数值，其中A126168（n）>n。

%e a（5）=16065，因为16065是第五个奇数，超过了其相应的无限除数之和。

%t指数列表[n_Integer，factors_List]：={#，IntegerExponent[n，#]}&/@factors；无穷除数[1]：={1}；无穷大除数[n-Integer？正]：=模块[｛factors=First/@FactorInteger[n]，d=除数[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；选择[Range[150000,2]，properinfinitarydivisorsum[#]>#&]（*程序结束*）

%t 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]；选择[范围[1，50000，2]，isigma[#]>2#&]（*_Amiram Eldar_，2019年6月9日*）

%o（PARI）A049417（n）={my（b，f=因子（n））；prod（k=1，#f[，2]，b=二进制（f[k，2]）

%o等值线（k）=A049417（k）>2*k&&k%2==1；\\_王金源2019年6月9日

%Y参见A005231、A126168、A127661、A129656。

%K非n

%O 1,1号机组

%安特金，2007年1月26日