|
|
|
|
#12通过阿洛伊斯·海因茨2020年11月9日周一02:57:08 EST |
|
|
|
#11个通过米歇尔·马库斯2020年11月9日星期一02:54:13 EST |
|
|
|
#10通过Jean-François Alcover公司2020年11月9日周一02:03:30 EST |
|
|
|
#9通过Jean-François Alcover公司2020年11月9日周一02:03:26 EST |
| 数学
|
s[n_]:=s[n]=如果[n<1,0,素数[n+1]+s[n-1]];
b[n_,i_,t_]:=b[n,i,t]=如果[s[i]<n,0,如果[n==0,t!,如果[#>n,0;
a[n_]:=b[n,PrimePi[n],0];
a/@范围[0,72](*Jean-François Alcover公司2020年11月9日之后阿洛伊斯·海因茨*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#8通过阿洛伊斯·海因茨美国东部时间2020年2月3日星期一20:47:40 |
|
|
|
#7通过阿洛伊斯·海因茨2020年2月3日星期一20:47:36 EST |
| 链接
|
Alois P.Heinz,<a href=“/A331981/b331981.txt“>n、a(n)表,n=0..10000</a>
|
| 状态
|
经核准的
编辑
|
|
|
|
#6通过阿洛伊斯·海因茨2020年2月3日星期一20:47:16 EST |
|
|
|
#5通过阿洛伊斯·海因茨美国东部时间2020年2月3日星期一18:35:15 |
| MAPLE公司
|
s: =proc(n)选项记忆`如果`(n<1,0,ithprime(n+1)+s(n-1))结束:
b: =proc(n,i,t)选项记忆`如果`(s(i)<n,0,`如果`(n=0,t!,(p
->`如果`(p>n,0,b(n-p,i-1,t+1))(ithprime(i+1))+b(n,i-1(t)))
结束时间:
a: =n->b(n,数值理论[pi](n),0):
seq(a(n),n=0..72)#阿洛伊斯·海因茨2020年2月3日
|
| 状态
|
提出
编辑
|
|
|
|
#4通过伊利亚·古特科夫斯基2020年2月3日星期一14:34:19 EST |
|
|
|
#3通过伊利亚·古特科夫斯基2020年2月3日星期一13:23:41 EST |
|
|
|