|
|
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
|
|
链接
|
|
|
配方奶粉
|
对于素数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)):
|
|
数学
|
数组[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];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|