|
|
|
|
|
|
|
|
|
#23通过阿洛伊斯·海因茨2022年4月14日星期四06:31:41 EDT |
|
|
|
|
|
|
|
#22通过米歇尔·马库斯2022年4月14日星期四02:11:29 EDT |
|
|
|
|
|
|
|
#21通过Jean-François Alcover公司2022年4月14日星期四02:08:08 EDT |
|
|
|
|
|
|
|
#20通过Jean-François Alcover公司2022年4月14日星期四02:07:53 EDT |
|
| 数学
|
$RecursionLimit=5000；
b[n_]：=如果[n==0，1，b[n-1]*素数[n]]；
g[n_，k_]：=g[n，k]=如果[k<0|n<0，0，
如果[k==0，如果[n==0、1、0]，g[n-k，k]+k*g[n-k，k-1]]；
a[n_]：=总和[g[b[n]，k]，{k，0，Floor[（Sqrt[8*b[n]+1]-1）/2]}]；
表[a[n]，{n，0，5}](*Jean-François Alcover公司2022年4月14日之后阿洛伊斯·海因茨*)
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#19通过阿洛伊斯·海因茨2021年4月9日星期五15:33:17 EDT |
|
|
|
|
|
|
|
#18通过阿洛伊斯·海因茨2021年4月9日星期五15:32:42 EDT |
|
|
|
|
|
|
|
#17通过阿洛伊斯·海因茨2021年4月9日星期五15:26:37 EDT |
|
| MAPLE公司
|
b： =进程（n）b（n）：=`if`（n=0，1，b（n-1）*ithprime（n））结束：
g： =proc（n，k）选项记忆`如果`（k<0或n<0，0，
`如果`（k=0，`如果`（n=0，1，0），g（n-k，k）+k*g（n-k，k-1））
结束时间：
a： =n->添加（g（b（n），k），k=0..层（（sqrt（8*b（n，+1）-1）/2））：
seq（a（n），n=0..5）；
|
|
|
|
|
|
|
#16通过阿洛伊斯·海因茨美国东部时间2021年4月9日星期五15:22:51 |
|
| 链接
|
Alois P.Heinz，<a href=“/A343119型/b343119.txt“>n表，n=0..6时为a（n）</a>
|
|
|
|
|
|
|
#15通过阿洛伊斯·海因茨2021年4月9日星期五15:20:20 EDT |
|
|
|
|
|
|
|
#14通过阿洛伊斯·海因茨2021年4月9日星期五15:19:35 EDT |
|
|
|
|
|
|
