|
|
|
|
#43通过苏珊娜·库勒2021年6月4日星期五04:42:05 EDT |
|
|
|
#42通过彼得·卢什尼2021年6月4日星期五02:52:05 EDT |
|
|
|
#41通过Jean-François Alcover公司2021年6月4日星期五02:40:46 EDT |
|
|
|
#40通过Jean-François Alcover公司2021年6月4日星期五02:40:42 EDT |
| 数学
|
(*第二个程序:*)
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日,之后阿洛伊斯·海因茨*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#39通过阿洛伊斯·海因茨2020年3月13日星期五13:36:21 EDT |
|
|
|
#38通过阿洛伊斯·海因茨2020年3月13日星期五13:36:16 EDT |
| 链接
|
Alois P.Heinz,<a href=“/A331634型/b331634.txt“>n表,n=2..12500时为a(n)</a>
|
|
|
|
#37通过阿洛伊斯·海因茨2020年3月13日星期五12:56:01 EDT |
| 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日
|
| 状态
|
经核准的
编辑
|
|
|
|
#36通过阿洛伊斯·海因茨2020年2月29日星期六15:09:33 EST |
|
|
|
#35通过大卫·詹姆斯·西卡莫尔2020年2月29日星期六14:43:24 EST |
|
|
讨论
|
2月29日星期六
| 15:09
| 阿洛伊斯·海因茨:不客气。
|
|
|
|
#34个通过大卫·詹姆斯·西卡莫尔2020年2月29日星期六12:41:30 EST |
| 配方奶粉
|
对于 第页首要的 第页>2,a(p)=a(2*p)=a(3*p)=p。
|
| 状态
|
提出
编辑
|
|
|
讨论
|
2月29日星期六
| 14:43
| 大卫·詹姆斯·桑莫尔:谢谢,更正。
|
|
|
|