|
| |
|
| A339434型 |
| n的构成数（有序分区）变成不同质数部分的质数。 |
|
1
|
|
|
|
0, 0, 0, 0, 0, 2, 0, 2, 2, 2, 8, 0, 8, 2, 8, 8, 10, 0, 16, 8, 16, 14, 16, 12, 18, 14, 22, 18, 136, 18, 138, 26, 22, 26, 258, 30, 266, 30, 266, 158, 492, 36, 506, 158, 510, 278, 744, 174, 748, 290, 758, 528, 990, 306, 1228, 668, 1116, 780, 6384, 678, 6630, 800, 1720, 1274
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,6
|
|
|
链接
|
|
|
|
例子
|
a（10）=8，因为我们有[7,3]，[3,7]，[5,3,2]，[5,1,3]、[3,5,2]、[3,1,5]、[2,5,3]和[2,3,5]。
|
|
|
枫木
|
s： =proc（n）选项记忆`如果`（n<1，0，ithprime（n）+s（n-1））结束：
b： =proc（n，i，t）选项记忆`如果`（s（i）<n，0，
`if`（n=0，`if`（i素数（t），t！，0），（p->`if`（p>n，0，
b（n-p，i-1，t+1））
结束时间：
a： =n->b（n，数论[pi]（n），0）：
|
|
|
数学
|
s[n_]：=s[n]=如果[n<1，0，素数[n]+s[n-1]]；
b[n_，i_，t_]：=b[n，i，t]=如果[s[i]<n，0，
如果[n==0，如果[PrimeQ[t]，t！，0]，函数[p，如果[p>n，0，
b[n-p，i-1，t+1]]][素数[i]]+b[n，i-1、t]]]；
a[n_]：=b[n，PrimePi[n]，0]；
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
