编辑

已批准

a（n）~13*sqrt（3）*exp（Pi*sqrt（2*n/3））/（3528*Pi^2）-瓦茨拉夫·科特索维奇，2018年5月29日

已批准

编辑

提出

已批准

编辑

提出

b[n_，p_]：=b[n，p]=如果[n==0&&p==0，{1，0}，如果[p==0，数组[0&，n+2]，和[Function[l，ReplacePart[l，m+2->p*l[[1]]+l[[m+2]]][Join[b[n-p*m，p-1]，数组[0，p*m]]，{m，0，n/p}]]；a[n]：=b[n，n][[8]]；表[a[n]，{n，6，55}](*Jean-François Alcover公司2014年1月24日之后阿洛伊斯·海因茨*)

已批准

编辑

编辑

已批准

通用格式：（x^6/（1-x^6）^2-x^7/（1-x^7）^2）/产品{i>=1}（1-x ^i）。

Alois P.Heinz，<a href=“/A222734号/b222734.txt“>n表，n=6..1000时为a（n）</a>

b： =proc（n，p）选项记忆`如果`（n=0，[1,0]，`如果`（p<1，[0,0]，

加法（（1->`如果`（m=6，l+[0，l[1]*p]，l））（b（n-p*m，p-1）），m=0..n/p））

结束：

a： =n->b（n，n）[2]：

seq（a（n），n=6..55）；

分配给Alois P.Heinz

n的所有分区中重数为6的部分的总和。

1, 0, 1, 1, 2, 2, 6, 6, 9, 12, 18, 22, 36, 43, 62, 77, 107, 133, 186, 229, 306, 384, 499, 621, 810, 999, 1277, 1582, 1997, 2453, 3088, 3776, 4698, 5742, 7088, 8618, 10592, 12824, 15654, 18910, 22955, 27615, 33400, 40028, 48174, 57593, 69018, 82231, 98225

6,5

第k列=第6列，共列A222730型.

分配

非n

阿洛伊斯·海因茨2013年3月3日

已批准

编辑

分配给Alois P.Heinz

分配

已批准