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

%S 1,0,5,5,21,35,85175363014812925572611110213754076677266，

%电话145495272290506836938783317307253176920580802010578162，

%电话：19197898347257656261648511257480720182736636088583543679795114534175562033369086

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

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

%F a（n）~（1/2-1/sqrt（5））^3/15*n^4*（（1+sqrt（五））/2）^n.-Vaclav Kotesovec_，2014年5月1日

%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： =4；

%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=4..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=4}，和[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，4，40}]（*_Jean-François Alcover_，2015年2月9日，在Maple之后*）

%A238342的Y列k=4。

%K nonn公司

%O 4，3号机组

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