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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A361924飞机 无穷除数具有无穷向函数iphi不同值的数字(A091732美元). 2
1, 3, 4, 5, 7, 9, 11, 12, 13, 15, 16, 17, 19, 20, 21, 23, 25, 27, 28, 29, 31, 33, 35, 36, 37, 39, 41, 43, 44, 45, 47, 48, 49, 51, 52, 53, 55, 57, 59, 60, 61, 63, 64, 65, 67, 68, 69, 71, 73, 75, 76, 77, 79, 80, 81, 83, 85, 87, 89, 91, 92, 93, 95, 97, 99, 100, 101 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
第一个不同于A003159号n=57时。
数字k是这样的A361923飞机(k)=A037445号(k) ●●●●。
由于k}的和{d无限除数iphi(d)=k,这些是数字k,因此k}多集{iphi。
包括所有奇数素数幂(A061345型)以及4的所有权力(A000302号).
对于k=1,2,…,项的数目不超过10^k。。。,是6、66、651、6497、64894、648641、6485605、64851632、648506213、6485025363。显然,这个序列的渐近密度为0.6485。。。
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
数学
f[p_,e_]:=p^(2^(-1+位置[Reverse@IntegerDigits[e,2],1]));
iphi[1]=1;iphi[n_]:=倍@@(扁平@(f@@@FactorInteger[n])-1);
idivs[n_]:=排序@Flatten@Outer[Times,Sequence@@(FactorInteger[n]/.{p_,m_Integer}:>p^选择[Range[0,m],BitOr[m,#]==m&])];idivs[1]={1};
q[n_]:=长度@并集[iphi/@(d=idivs[n])]==长度[d];选择[范围[100],q]
黄体脂酮素
(PARI)iphi(n)={my(f=因子(n),b);prod(i=1,#f~,b=二进制(f[i,2]);prop(k=1,#b,if(b[k],f[i、1]^(2^(#b-k))-1,1))}
isidiv(d,f)={if(d==1,返回(1));对于(k=1,#f~,bne=二进制(f[k,2]);bde=二进制(赋值(d,f[k,1]));如果(#bde<#bne,bde=concat(向量(#bne-#bde),bde));针对(j=1,#bne,if(!bne[j]&&bde[j],返回(0););)
idivs(n)={my(d=除数(n),f=因子(n)(idiv=[]);对于(k=1,#d,if(isidiv(d[k],f),idiv=concat(idiv[k])););idiv;}\\米歇尔·马库斯A077609型
是(k)={my(d=idivs(k));#设置(应用(x->iphi(x),d))==#d;}
交叉参考
类似序列:A326835型,34804英镑.
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月20日17:22。包含373530个序列。(在oeis4上运行。)