%I#10 2015年2月9日09:29:10

%S 1,0,8,8,44,80236513123827446160133842884661228128513266668，

%电话：5481851116580225545245211988998844177923613496222468305274，

%电话：13272487125658751249366560494549764218031220753424720416647963525412214748337

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

%H Joerg Arndt和Alois P.Heinz，n的表格，n=7..1000时的a（n）</a>

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

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

%p`if`（n<s，0，展开（加（b（n-j，s）*x，j=s.n）））

%p端：

%p a：=进程（n）局部k；k： =7；

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

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

%p端：

%p序列（a（n），n=7..40）；

%tb[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之后*）

%A238342的Y列k=7。

%K nonn公司

%O 7,3号

%A _Joerg Arndt_和_Alois P.Heinz，2014年4月30日