显示找到的3个结果中的1-3个。
第页1
20, 22, 24, 30, 36, 40, 42, 44, 48, 50, 52, 54, 60, 63, 66, 70, 72, 80, 81, 84, 88, 90, 96, 100, 102, 104, 105, 108, 110, 112, 115, 120, 124, 126, 130, 132, 135, 136, 140, 144, 147, 150, 154, 156, 160, 162, 165, 168, 170, 175, 176, 180, 189, 190, 192, 198, 200
例子
24是一个项,因为它的适当除数3和12的数字和相等。
MAPLE公司
q: =n->(s->is(nops(s)>nops({s[]}))(映射(x->add(i,i=转换(x,
基数,10)),[(数字[除数](n)减去{n})[]]):
数学
a={};对于[k=1,k<=210,k++,If[Length[Intersection[Table[Total[Part[Integer Digits[Divisors[k]],i]],{i,DivisorSigma[0,k]-1}]]<Divisor西格玛[0,k]-1,AppendTo[a,k]]];一
黄体脂酮素
(PARI)isok(k)=my(d=集合减号(集合(除数(k)),[k]))#设置(应用(总和,d))<#d\\米歇尔·马库斯2022年12月19日
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 14, 15, 16, 17, 19, 23, 25, 26, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 56, 57, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97
数学
a={};对于[k=1,k<=97,k++,If[Length[Intersection[Table[Total[Part[Integer Digits[Divisors[k]],i]],{i,DivisorSigma[0,k]}]]==Divisor Sigma[0,k],AppendTo[a,k]]];一
黄体脂酮素
(Python)
从sympy导入除数
定义sod(n):返回和(map(int,str(n)))
定义正常(n):
s=设置()
对于除数中的d(n,generator=True):
sd=超氧化物歧化酶(d)
如果sd在s中:返回False
s.添加(sd)
return真
打印([k代表范围(1,98)中的k,如果正常(k)])#迈克尔·布拉尼基2022年12月15日
(PARI)isok(k)=my(d=除数(k))#设置(应用(总和,d))==#d\\米歇尔·马库斯2022年12月19日
a(n)是具有恰好n个除数且具有相同数字和的最小数。
+10 2
1, 10, 36, 54, 144, 108, 486, 216, 324, 432, 648, 540, 1296, 3510, 2430, 1080, 2700, 1620, 8424, 2160, 4860, 4320, 3240, 27216, 7560, 8100, 6480, 35100, 10800, 19440, 24300, 21060, 15120, 16200, 37800, 56700, 54000, 30240, 42120, 60480, 32400, 45360, 84240, 81000, 64800, 75600, 90720, 213840
评论
a(n)是最小的数字k,因此对于某些s,k正好有n个除数,且数字之和为s。
例子
a(1)=1,因为1有1个除数,数字和为1,即1。
a(2)=10,因为10有2个除数,数字和为1,即1和10。
a(3)=36,因为36有3个除数,数字和为9,即9、18和36。
a(4)=54,因为54有4个除数,数字和为9,即9、18、27和54。
MAPLE公司
f: =proc(n)局部L,S;
五十: =转换(数字理论:-除数(n),列表);
S: =映射(t->转换(转换(t,base,10),`+`),L);
映射(t->numboccurrence(t,S),转换(S,set))
结束进程:
五: =矢量(50):计数:=0:
当计数<50 do时,n从1开始
对于f(n)do中的v
如果v<=50且v[v]=0,则v[v]:=n;计数:=计数+1;fi(菲涅耳)
日期:
转换(V,列表);
黄体脂酮素
(PARI)是(z,n)={my(e=1,w=[],s=[]、t=0);s=vecsort(apply(vecsum,apply(digits,apply,divisors,z)));对于(i=2,#s,如果(s[i]==s[i-1],e++,w=concat(w,e);e=1));w=concat]==n)&&(s[G[2]]==n),t=1;如果(G[1]!=G[2],返回(0));返回(t)}
a(n)=对于(z=1,+oo,is(z,n)&&return(z))\\R.J.卡诺2023年1月23日
(Python)
从sympy导入除数
从集合导入计数器
从itertools导入计数,islice
def-sd(n):返回和(map(int,str(n)))
def agen():#术语生成器
adict,n=dict(),1
对于计数(1)中的k:
c=计数器(除数中d的sd(d)(k,生成器=True))
对于v in c.值():
如果v>=n且v不在基数中:
adict[v]=k
而adict中的n:生成adict[n];n+=1
打印(列表(islice(agen(),50))#迈克尔·布拉尼基2023年1月27日
搜索在0.007秒内完成
|