提出

经核准的

编辑

提出

b[n_，s_]：=b[n，s]=如果[n==0，1，如果[n<s，0，展开[Sum[b[n-j，s]*x，{j，s，n}]]]；a[n_]：=与[{k=7}，和[Function[{p}，Sum[系数[p，x，i]*二项式[i+k，k]，{i，0，指数[p，x]}]][b[n-j*k，j+1]]，{j，1，n/k}]]；表[a[n]，{n，7，40}](*Jean-François Alcover公司2015年2月9日，Maple之后*）

经核准的

编辑

编辑

经核准的

a（n）~n^7*（（1+sqrt（5））/2）^（n-15）/（5^4*7！）-瓦茨拉夫·科泰索维奇2014年5月2日

经核准的

编辑

编辑

经核准的

b： =proc（n，s）选项记忆`如果`（n=0，1，

`如果`（n<s，0，展开（加（b（n-j，s）*x，j=s.n））

结束时间：

a： =程序（n）局部k；k： =7；

加法（（p->add（coff（p，x，i）*二项式（i+k，k），

i=0..度（p））（b（n-j*k，j+1）），j=1..n/k）

结束时间：

seq（a（n），n=7..40）；

Joerg Arndt和Alois P.Heinz，<a href=“/A241867号/b241867.txt“>n表，n=7..1000时为a（n）</a>

分配给Alois P.Heinz

n的组成数，使得最小部分的重数为7。

1, 0, 8, 8, 44, 80, 236, 513, 1238, 2744, 6160, 13384, 28846, 61228, 128513, 266668, 548185, 1116580, 2255452, 4521198, 8998844, 17792361, 34962224, 68305274, 132724871, 256587512, 493665604, 945497642, 1803122075, 3424720416, 6479635254, 12214748337

7、3

第k列=第7列，共列A238342型.

分配

非n

乔格·阿恩特和阿洛伊斯·海因茨2014年4月30日

经核准的

编辑

分配给Alois P.Heinz

分配

经核准的