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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A331296飞机 k值的数量,1<=k<=n,带1967年2月(k)=1967年2月(n) ,其中1967年2月(n) =最大值(A001222号(n) ,A061395号(n) )。
1, 1, 1, 2, 1, 3, 1, 2, 4, 3, 1, 4, 1, 2, 5, 3, 1, 6, 1, 7, 4, 2, 1, 5, 8, 2, 9, 6, 1, 10, 1, 3, 4, 2, 7, 8, 1, 2, 3, 9, 1, 10, 1, 5, 11, 2, 1, 6, 11, 12, 3, 4, 1, 12, 7, 13, 3, 2, 1, 14, 1, 2, 15, 5, 6, 8, 1, 4, 3, 16, 1, 9, 1, 2, 13, 4, 10, 7, 1, 11, 17, 2, 1, 18, 5, 2, 3, 12, 1, 19, 8, 4, 3, 2, 5, 9, 1, 20, 13, 21, 1, 6, 1, 10, 22 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,4
评论
的顺序变换1967年2月.
链接
数学
1967年2月[n_]:=如果[n==1,0,With[{f=FactorInteger[n]},Max[PrimePi[Max[f[[All,1]]],Total[f[All、2]]]];
b[_]=0;
a[n_]:=带有[{t=1967年2月[n] },b[t]=b[t]+1;
数组[a,105](*Jean-François Alcover公司,2022年1月10日*)
黄体脂酮素
(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];
1967年2月(n) =如果(n<2,0,my(f=系数(n));最大值(vecsum(f[,2]),素数(f[#f~,1]));\\发件人1967年2月
v331296=序号变换(向量(up_to,n,1967年2月(n) );
A331296飞机(n) =v331296[n];
交叉参考
囊性纤维变性。A001222号,A061395号,1967年2月.
另请参阅A078899号.
关键词
非n
作者
安蒂·卡图恩2020年1月18日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月25日05:27。包含373697个序列。(在oeis4上运行。)