检验过的

经核准的

提出

检验过的

编辑

提出

T[n_，k_]：=如果[n==0，1，如果[k>n+1，0，和[1/（n-j*k）！/j，{j，1，n/k}]]*n！；

表[T[n，k]，{n，1，10}，{k，1，n}]//压扁(*Jean-François Alcover公司2023年6月25日之后R.J.马塔尔*)

经核准的

编辑

编辑

经核准的

1, 3, 2, 8, 6, 6, 24, 24, 24, 24, 89, 80, 60, 120, 120, 415, 450, 480, 360, 720, 720, 2372, 2142, 2730, 840, 2520, 5040, 5040, 16072, 17696, 10416, 21840, 6720, 20160, 40320, 40320, 125673, 112464, 151704, 184464, 15120, 60480, 181440, 362880, 362880，1112083，1232370，1285920，912240，1844640，151200，604800，1814400，3628800，3628800，10976184，9761510，6820110，3334320，20013840，332640

1, 3, 2, 8, 6, 6, 24, 24, 24, 24, 89, 80, 60, 120, 120, 415, 450, 480, 360, 720, 720, 2372, 2142, 2730, 840, 2520, 5040, 5040，16072，17696，10416，21840，6720，20160，40320，40320，125673，112464，151704，184464，15120，60480，181440，362880，362880，1112083，1232370，1285920，912240，1844640，151200，604800，1814400，3628800，3628800，10976184，9761510，6820110，3334320，20013840，332640

A260323型：=进程（n，r）

如果r=0，则

1 ;

elif n>r+1那么

0 ;

其他的

加（1/（r-j*n）/j、 j=1..（r）/n）；

%*r；

结束条件：；

结束进程：

r从1到20 do

对于n从1到r do

printf（“%a，”，A260323型（n，r））；

结束do：

printf（“\n”）；

结束do：#R.J.马塔尔，2015年7月24日

签名，表，更多，新的

经核准的

编辑

编辑

经核准的

行、列和给出A002741号A002104号，A002742号，A002743号A002745号，A002744号A002746号.

经核准的

编辑

编辑

经核准的