OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A178029号 除数和等于反除数和的数字。 5
11, 22, 33, 65, 82, 117, 218, 483, 508, 537, 6430, 21541, 117818, 3589646, 7231219, 8515767, 13050345, 47245905, 50414595, 104335023, 217728002, 1217532421, 1573368218, 1875543429, 2269058065, 11902221245, 12196454655, 12658724029 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,1
链接
公式
{编号:A066417号(n)=A000203号(n) }-R.J.马塔尔2010年5月24日
例子
6430在序列中,因为除数之和是1+2+5+10+643+1286+3215+6430=11592
它等于反除数3+4+7+9+11+20+77+167+1169+1429+1837+2572+4287=11592的和。
21541在序列中,因为除数的和是1+13+1657+21541=23212
等于反除数2+3+9+26+67+643+3314+4787+14361=23212的和。
MAPLE公司
使用(数字理论):P:=proc(q)局部j,k;k: =0;j: =q;而jmod2<>1做k:=k+1;j: =j/2;od;如果σ(q)=σ(2*q+1)+sigma(2*q-1)+σ(q/2^k)*2^(k+1)-6*q-2,则q;fi;结束:seq(P(i),i=3..10^5);
#替代Maple实施:
抗毒剂:=proc(n)局部a,k;a:={};对于从2到n-1的k,如果abs((n mod k)-k/2)<1,那么a:=并集{k};结束条件:;结束do:a;结束进程:
A066417号:=proc(n)加(d,d=抗病毒剂(n));结束进程:
isA178029:=过程(n)数量[sigma](n)=A066417号(n) ;结束进程:
对于1中的n,如果是A178029(n),则执行printf(“%d,\n”,n);结束条件:;结束do:
#R.J.马塔尔2010年5月24日
数学
抗分裂剂[n_]:=选择[Range[2,n-1],Abs[Mod[n,#]-#/2]<1&];
对于[k=1,k<=10^5,k++,如果[DivisorSigma[1,k]==总[antidivisors[k]],打印[k]]](*Jean-François Alcover公司2023年6月14日*)
黄体脂酮素
(Python)
从sympy导入除数
[n代表范围(1,10**5)中的n,如果和([d代表范围(2,n)中的d,如果[d-1,0,1]]中的(n%d)和(2*n)%d)==和(除数(n))]#柴华武2014年8月7日
交叉参考
囊性纤维变性。A000203号,A066272号,A066417号.
关键词
非n,改变
作者
扩展
a(13)-a(28)来自多诺万·约翰逊2010年6月12日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年6月17日09:14。包含373444个序列。(在oeis4上运行。)