%I#17 2020年5月23日14:30:47

%S 1,1,2,2,3,3,4,6,8,11,15,19,22,25,30,37,47,62,83108136168205，

%电话2472953544295246427899721196146617892173262531553778，

%电话：45155391643776929201011101413186157801886522516268183137791

%N的组成数，使得最小的部分可以被部分数整除。

%H Alois P.Heinz，n的表格，n=1..900时的a（n）</a>

%F G.F.：求和{n>=0}[求和{d|n}x^（n*d）*（1-x^d）/（1-x）^d]。

%p b:=proc（n，t，g）选项记忆`如果`（n=0，`如果`（irem（g，t）=0，1，0），加（b（n-i，t+1，min（i，g）），i=1..n））结束：a:=n->b（n，0，无穷大）：seq（a（n），n=1..60）；#_Alois P.Heinz，2009年12月15日

%p A171628：=过程（n）局部g，k；克：=0；对于k从0到n的dog：=g+加（x^（k*d）*（1-x^d）/（1-x）^d，d=数理论[除数]（k））；g:=展开（g）；结束do；coeftayl（g，x=0，n）；结束进程：序列（A171628（n），n=1..60）；#_R.J.Mathar，2009年12月14日

%tb[n_，t_，g_]：=b[n，t，g]=如果[n==0，如果[Mod[g，t]==0、1、0]，求和[b[n-i，t+1，Min[i，g]]，{i，n}]]；

%t a[n_]：=b[n，0，无穷大]；

%t数组[a，60]（*_Jean-François Alcover_，2020年5月23日，在_Alois P.Heinz_*之后）

%Y参考A168656、A171625。

%K容易，不是

%O 1,4型

%A_Vladeta Jovovic_，2009年12月13日

%E更多条款摘自R.J.Mathar_和_Alois P.Heinz，2009年12月14日