|
a81[n_]：=a81[n]=如果[n<=1，n，和[a81[n-j]*除数和[j，#1*a81[#1]&]，{j，n-1}]/（n-1）]；
A027852号[n]：=模[{dh=0，np}，对于[np=0，np<=n，np++，dh=a81[np]*a81[n-np]+dh]；如果[EvenQ[n]，dh=a81[n/2]+dh]；dh/2]；
2008年2月[n_]：=如果[n==0，1，总和[a81[np+1]*A027852号[n-np+2]，{np，0，n}]]；
t[n_]：=t[n]=模[{d，j}，如果[n==1，1，和[Sum[d*t[d]，{d，除数[j]}]*t[n-j]，{j，1，n-1}]/（n-1）]]；
b[1,1,1]=1；
b[n_，i_，p]：=b[n，i，p]=如果[p>n，0，如果[n==0，1，如果[Min[i，p]<1，0，总和[b[n-i*j，i-1，p-j]*二项式[t[i]+j-1，j]，{j，0，Min[n/i，p]}]]；A033185号[n，k_]：=b[n，n，k]；
A280786型[n_]：=如果[n<2，0，总和[A280787型[n，f]，{f，1，n-1}]]；
A280787型【n，f】：=A280787型[n，f]=模块[{ct}，其中[f==n，返回[0]，f==n-1，返回[1]，f==1，返回[A280786型[n-1]+A280788型[n-2]，正确，ct=0；做[ct+=A280787型[np，1]*A033185号[n-np，f-1]，{np，1，n-1}]]；ct】；
表[2008年2月[n] ，{n，2，30}](*Jean-François Alcover公司，2017年11月23日，之后R.J.马塔尔和阿洛伊斯·海因茨*)
| 