显示找到的3个结果中的1-3个。
第页1
酉σ-等分圈成员的数(酉完全数、酉友好数和酉社交数的并集)。
+10 6
6, 30, 42, 54, 60, 90, 114, 126, 1140, 1260, 1482, 1878, 1890, 2142, 2178, 2418, 2958, 3522, 3534, 3582, 3774, 3906, 3954, 3966, 3978, 4146, 4158, 4434, 4446, 18018, 22302, 24180, 29580, 32130, 35220, 35238, 35340, 35820, 37740, 38682, 39060, 39540, 39660, 39780, 40446, 41460, 41580, 44340, 44460, 44772, 45402
评论
不是6的倍数的术语有:142310、168730、1077890、1099390、1156870、1292570、…、。。。,似乎都存在A063991号.
数学
a327157[n_]:=地图[cycleL,范围[n]]
黄体脂酮素
(平价)
A034448号(n) ={my(f=factorint(n));prod(k=1,#f~,1+(f[k,1]^f[k,2]);};
memo327159=地图();
A327159型(n) =如果(1==n,0,my(v,orgn=n,xs=Set([]));if(mapisdefined(memo327159,n,&v),v,while(n&&!vecsearch(xs,n),xs=集合联合([n],xs);n个=A034460号(n) ;if(mapisdefined(memo327159,n),对于(i=1,#xs,mapput(memo3127159,xs[i],0));return(0));如果(n==orgn,v=长度(xs);对于(i=1,v,mapput(memo327159,xs[i],v)),v=0;地图(memo327159,orgn,v));(v) ));
k=0;n=0;while(k<=1001,n++;if(t=A327159型(n) ,k++;打印(n,“->”,t);写入(“b327157.txt”,k,“”,n));
映射x->usigma(x)-x中包含n的循环的大小,如果n不是任何有限循环的成员,则为0。这里usigma是n的幺正因子之和(A034448号).
+10 4
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0
数学
a034460[0]=0;(*避免在迭代达到0*时除以0)
a034460[n_]:=总计[Select[Divisors[n],GCD[#,n/#]==1&]]-n/;n>0
cycleL[k_]:=模块[{nL=NestWhileList[a034460,k,UnsameQ,All]},如果[k==Last[nL],长度[nL]-1,0]]
a327159[n_]:=地图[循环L,范围[n]]
黄体脂酮素
(平价)
A327159型(n,orgn=n,xs=Set([]))=if(1==n,0,if(vecsearch(xs,n),if)(n==orgn,length(xs),0),xs=setunion([n],xs);A327159型(A034460号(n) ,orgn,xs));
525150234, 527787366, 528544218, 553128198, 612951066, 675192294, 735821562, 982674438, 998151162, 998151174, 5251502340, 5277873660, 5285442180, 5531281980, 6129510660, 6751922940, 7358215620, 9826744380, 9981511620, 9981511740
黄体脂酮素
(PARI)f(n)=总和(n,d,如果(gcd(d,n/d)==1,d))-n;
isok10(n)=ifer(f(f(f-(f(f-(f-))))==n,E,0);
isok5(n)=ifrer(f(f(f(f(n))))==n,E,0);
isok2(n)=iferr(f(f(n))==n,E,0);
isok1(n)=ifrer(f(n)==n,E,0);
isok(n)=isok10(n)&&!isok1(n)&&!isok2(n)&&!isok5(n);
搜索在0.027秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日15:05。包含376087个序列。(在oeis4上运行。)
|