登录
A178029号
除数和等于反除数和的数字。
6
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日
关键词
非n
作者
扩展
a(13)-a(28)来自多诺万·约翰逊2010年6月12日
状态
经核准的