搜索: 编号:a127667
|
|
|
|
945, 1743, 2175, 2655, 2823, 2865, 3105, 3375, 3537, 3585, 3729, 4209, 4665, 5775, 6559, 6681, 6969, 7257, 7263, 7785, 8457, 8583, 9657, 10017, 10047, 10113, 10395, 10599, 10743, 12285, 13815, 14055, 14145, 15015, 15597, 16065, 17955, 18529, 18777, 19305, 19635
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
根据经验证据,大约98.9%的由奇数整数生成的无限等分序列是单调递减的。此序列表示1.1%的奇数整数,这是例外情况。
|
|
链接
|
格雷姆·L·科恩,关于整数的无穷除数,数学。公司。,54 (1990), 395-411.
J.O.M.Pedersen,等分循环表[断开的链接]
J.O.M.Pedersen,等分循环表[通过Internet Archive Wayback-Machine]
J.O.M.Pedersen,等分循环表[缓存副本,仅限pdf文件]
|
|
例子
|
a(5)=2823,因为2823是第五个奇数整数,其无限等分序列不是单调递减的。
|
|
数学
|
指数列表[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]:=加@@InfinityDivisors[k]-k;g[n_]:=如果[n>0,properinfinitearydivisorsum[n],0];iTrajectory[n_]:=大多数[NestWhileList[g,n,UnsameQ,All]];u[n_]:=表[n[[k+1]]<n[[k]],{k,1,长度[n]-1}];v[n_]:=如果[!MemberQ[u[n],False],True,False];data=i轨迹/@范围[1,10^4,2];第一个/@选择[data,!v[#]&]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|