|
| |
|
| A121304材质 |
| 在n到素数的所有组成中的部分数（即，在具有和n的素数的所有有序序列中）。 |
|
5
|
|
|
|
1, 1, 2, 5, 5, 14, 17, 32, 53, 76, 139, 198, 334, 515, 798, 1280, 1938, 3075, 4710, 7299, 11298, 17296, 26738, 40874, 62763, 96036, 146674, 224210, 341562, 520767, 792375, 1204951, 1831124, 2779234, 4217008, 6391663, 9683056, 14659038, 22177341
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
2、3
|
|
|
评论
|
|
|
|
链接
|
|
|
|
公式
|
G.f.：（求和{i>=1}z^素数（i））/（1-求和{i>=1}z^素（i）。
|
|
|
例子
|
a（8）=17，因为8组成素数的成分是[3,5]、[5,3]、[2,3,3]，[3,2,3]、[3,3,2]和[2,2,2,2]，总共有2+2+3+3+3+4=17个部分。
|
|
|
MAPLE公司
|
g： =和（z^ithprime（i），i=1.53）/（1-和（z_ithprime，i），i=1..53））^2:gser：=系列（g，z=0，48）：seq（系数（gser，z，n），n=2..45）；
#第二个Maple项目：
b： =proc（n）选项记忆`如果`（n=0，[1，0]，则添加(
`如果`（i素数（j），（p->p+[0，p[1]）（b（n-j）），0），j=1..n））
结束：
a： =n->b（n）[2]：
seq（a（n），n=2..50）#阿洛伊斯·海因茨，2013年11月8日，2021年2月12日修订
|
|
|
数学
|
nn=40；a[x_]：=和[x^素数[n]，{n，1，nn}]；下降[系数列表[系列[D[1/（1-ya[x]），y]/.y->1，{x，0，nn}]，x]，2](*杰弗里·克雷策2013年11月8日*）
表[Length[Flatten[Union[Flatten[Permutations/@Select[Integer Partitions[n]，AllTrue[#，PrimeQ]&]，1]]]，{n，2，40}]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2016年10月24日*）
b[n_]：=b[n]=如果[n==0，{1，0}，和[If[PrimeQ[j]，
函数[p，p+{0，p[[1]]}][b[n-j]]，{0，0}]，{j，1，n}]]；
a[n]：=b[n][[2]；
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
