登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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
评论
(1+e)-富足数是数字k,因此A051378号(k) >2*k(的并集A333928型A349284型).
除了836之外,还有这个序列中没有的数字吗A348631型? -R.J.马塔尔2021年11月16日
836年之后的下一个学期不在A348631型是a(89)=45356-阿米拉姆·埃尔达尔2021年11月21日
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
数学
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
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部时间2024年4月24日00:30。包含371917个序列。(在oeis4上运行。)