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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A331634型 a(n)是n的任何素数分区的最大可能最小部分。 9
2, 3, 2, 5, 3, 7, 3, 3, 5, 11, 5, 13, 7, 5, 5, 17, 7, 19, 7, 7, 11, 23, 11, 7, 13, 7, 11, 29, 13, 31, 13, 11, 17, 11, 17, 37, 19, 13, 17, 41, 19, 43, 13, 13, 23, 47, 19, 13, 19, 17, 23, 53, 23, 17, 19, 19, 29, 59, 29, 61, 31, 17, 23, 19, 29, 67, 31, 23, 29, 71 (列表;图表;参考;;历史;文本;内部格式)
抵消
2,1
链接
阿洛伊斯·海因茨,n=2..12500时的n,a(n)表
配方奶粉
对于素数p>2,a(p)=a(2*p)=a(3*p)=p。
例子
a(12)=5,因为5是将12分成素数部分的所有最小素数中最大的:[2,2,2,2,2,2],[2,2,3,3],[3,3,3],[2,2,5,5],[2,3,7],[5,7]。
MAPLE公司
b: =proc(n,p,t)选项记忆`如果`(n=0,1,`如果`(p>n,0,(q->
加(b(n-p*j,q,1),j=1..n/p)*t^p+b(n,q,t))(下一素数(p))
结束时间:
a: =n->度(b(n,2,x)):
seq(a(n),n=2..100)#阿洛伊斯·海因茨2020年3月13日
数学
数组[If[PrimeQ@#,#,Max@IntegerPartitions[#,#/FactorInteger[#][1,1]],Prime@Range@PrimePi[#-2]][[All,-1]]&,60,2](*迈克尔·德弗利格2020年1月26日*)
(*第二个节目:*)
b[n_,p_,t_]:=b[n,p,t]=如果[n==0,1,如果[p>n,0,函数[q,总和[
b[n-p*j,q,1],{j,1,n/p}]*t^p+b[n,q,t][NextPrime[p]]];
a[n_]:=指数[b[n,2,x],x];
a/@范围[2100](*Jean-François Alcover公司2021年6月4日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A000040型A000607号A001414号A100484号A001748号.
关键词
非n
作者
状态
经核准的

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

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

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