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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A331280型 词法上最早的无限序列,使得a(i)=a(j)=>1978年2月20日(i)=A278220型(j) 就我而言,j。
1, 2, 3, 2, 4, 3, 5, 2, 6, 4, 7, 3, 8, 5, 9, 2, 10, 6, 11, 4, 12, 7, 13, 3, 9, 8, 6, 5, 14, 9, 15, 2, 16, 10, 17, 6, 18, 11, 19, 4, 20, 12, 21, 7, 9, 13, 22, 3, 12, 9, 23, 8, 24, 6, 25, 5, 26, 14, 27, 9, 28, 15, 12, 2, 29, 16, 30, 10, 31, 17, 32, 6, 33, 18, 34, 11, 25, 19, 35, 4, 6, 20, 36, 12, 37, 21, 38, 7, 39, 9, 40, 13, 41, 22, 42, 3, 43, 12, 16, 9, 44, 23, 45, 8, 46 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
的限制生长序列变换1978年2月20日(n)(=A046523号(A241909型(n) )。
链接
程序
(PARI)
up_to=65537;
rgs_transform(invec)={my(om=Map(),outvec=vector(length(invec)),u=1);对于(i=1,长度(invesc),如果(mapisdefined(om,invec[i]),my(pp=mapget(om,invec[i];
A046523号(n) ={my(f=vecsort(factor(n)[,2],4),p);prod(i=1,#f,(p=nextprime(p+1))^f[i]);};\\此函数来自A046523号
A241909型(n) =如果(1==n||isp素数(n),2^素数(n),my(f=因子(n)),h=1,i,m=1,p=1,k=1);while(k<=#f~,p=下一素数(1+p);i=素数(f[k,1]);m*=p^(i-h);h=i;如果(f[k,2]>1,f[k;2]--,k++);(p*m));
A278220型(n)=A046523号(A241909型(n) );
v331280=rgs_transform(向量(up_to,n,A278220型(n) );
A331280型(n) =v331280[n];
交叉参考
囊性纤维变性。A046523号,A241909型,A278220型.
关键词
非n
作者
安蒂·卡图恩2020年1月17日
状态
已批准

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

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

上次修改时间:2024年4月25日05:18 EDT。包含371964个序列。(在oeis4上运行。)