|
|
A259200型 |
| 将n划分为九个素数的次数。 |
|
22
|
|
|
1, 1, 1, 2, 2, 3, 4, 4, 5, 7, 7, 9, 10, 11, 12, 16, 16, 20, 21, 24, 26, 33, 31, 39, 39, 47, 46, 59, 53, 69, 65, 80, 77, 98, 85, 114, 104, 131, 118, 154, 133, 179, 155, 200, 177, 236, 196, 268, 227, 300, 256
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
18,4
|
|
链接
|
|
|
公式
|
a(n)=[x^ny^9]乘积{k>=1}1/(1-y*x^prime(k))-伊利亚·古特科夫斯基2019年4月18日
|
|
例子
|
a(23)=3,因为23有3个分块成9个素数:[2,2,2,2,2,2,2,2,2,1,7],[2,2,2,2,2,3,3,5]和[2,2,,2,2,3,4,3,3]。
|
|
MAPLE公司
|
N: =100:#获取a(0)到a(N)
素数:=选择(isprime,[$1..N]):
np:=nops(素数):
对于从0到np的j dog[0,j]:=1 od:
n从1到9 do
g[n,0]:=0:
对于j从1到np do
g[n,j]:=转换(级数(加上(g[k,j-1]
*x^((n-k)*素数[j]),k=0..n),x,n+1),多项式)
日
日期:
seq(系数(g[9,np],x,i),i=18..N)#罗伯特·伊斯雷尔2015年6月21日
|
|
数学
|
Table[Length[Select[IntegerPartitions[n],Length[#]=9&&AllTrue[#,PrimeQ]&]],{n,18,70}](*程序使用Mathematica版本10*中的AllTrue函数)(*哈维·P·戴尔2016年7月31日*)
|
|
黄体脂酮素
|
(PARI)a(n)={nb=0;对于部分(p=n,如果(#p&&(#select(x->isprime(x),Vec(p))==#p),nb+=1),[9,9]);nb;}\\米歇尔·马库斯2015年6月21日
(岩浆)[#RestrictedPartitions(k,9,Set(PrimesUpTo(1000))):k in[18..70]]//马吕斯·A·伯蒂2019年7月13日
|
|
交叉参考
|
|
|
关键字
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|