|
|
A349285型 |
| (1+e)-奇数:(1+e)-富足数k,使得k的等分(1+e-)-除数的子集不能和到k。 |
|
1
|
|
|
70, 836, 4030, 5830, 10430, 10570, 10990, 11410, 11690, 12110, 12530, 12670, 13370, 13510, 13790, 13930, 14770, 15610, 15890, 16030, 16310, 16730, 16870, 17570, 17990, 18410, 18830, 18970, 19390, 19670, 19810, 20510, 21490, 21770, 21910, 22190, 23170, 23590, 24290
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
divQ[n_,m_]:=(n>0&&(m==0||可除[n,m]));oeDivQ[n_,d_]:=模块[{f=FactorInteger[n]},和@@MapThread[divQ,{f[[;;,2]],IntegerExponent[d,f[[,;,1]]}]];oeDivs[1]={1};oeDivs[n_]:=模块[{d=除数[n]},选择[d,oeDivQ[n,#]&]];oesigma[1]=1;o西格玛[n]:=总计@oeDivs[n] ;oeAbundantQ[n_]:=oesigma[n]>2*n;oeWeirdQ[n_]:=oeAbundantQ[n]&&模块[{d=Most[oeDivs[n]]},系列系数[Series[Product[1+x^d[i]],{i,Length[d]}],{x,0,n}],n]==0];选择[Range[12000],oeWeirdQ]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|