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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A303759型 n的最大主功率因数的倍数(A034699号)是数字<=n的最大主功率因数;a(1)=1。
1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 3, 1, 1, 2, 1, 4, 3, 2, 1, 2, 1, 2, 1, 4, 1, 5, 1, 1, 3, 2, 5, 3, 1, 2, 3, 3, 1, 6, 1, 4, 4, 2, 1, 2, 1, 2, 3, 4, 1, 2, 5, 4, 3, 2, 1, 6, 1, 2, 5, 1, 5, 6, 1, 4, 3, 7, 1, 6, 1, 2, 3, 4, 7, 6, 1, 3, 1, 2, 1, 8, 5, 2, 3, 8, 1, 7, 7, 4, 3, 2, 5, 2, 1, 2, 9, 4, 1, 6, 1, 8, 9 (列表图表参考历史文本内部格式)
抵消
1,6
评论
的顺序变换A034699号.
链接
MAPLE公司
b: =proc()0结束:
a: =proc(n)选项记忆;局部t;
t: =最大值(1,seq(i[1]^i[2],i=系数(n)[2]));
b(t):=b(t
结束时间:
seq(a(n),n=1..120)#阿洛伊斯·海因茨2018年4月30日
数学
f[n_]:=最大[Power@@@FactorInteger[n]];
b[_]=0;
a[n_]:=与[{t=f[n]},b[t]=b[t]+1];
数组[a,105](*Jean-François Alcover公司2022年1月3日*)
黄体脂酮素
(PARI)
up_to=65537;
ordinal_transform(invec)={my(om=Map(),outvec=向量(长度(invec)),pt);对于(i=1,长度(invesc),如果(mapisdefined(om,invec[i]),pt=mapget(om,invec[i];
A034699号(n) =if(1==n,n,fordiv(n,d,if(i素数幂(n/d),返回(n/d)));
v303759=序号变换(向量(up_to,n,A034699号(n) );
A303759(n) =v303759【n】;
交叉参考
囊性纤维变性。A000961号(1的位置),A034699号.
关键词
非n
作者
安蒂·卡图恩2018年4月30日
状态
经核准的

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

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

上次修改时间:2024年4月19日13:40 EDT。包含371792个序列。(在oeis4上运行。)