检验过的
经核准的
提出
编辑
A[n_,k_]:=A[n,k]=如果[n==0,1,Sum[二项式[n-1,j-1]*j^k*A[n-j,k],{j,1,n}]];表[A[n,d-n],{d,0,12},{n,0,d}]//展平(*Jean-François Alcover公司,2017年2月19日,翻译自枫叶*)
维基百科,<a href=“https://en.wikipedia.org/wiki/Kronecker_delta“>克罗内克三角洲</a>
Alois P.Heinz,<a href=“/A279636型/b279636.txt“>反对角线n=0..140,扁平</a>
囊性纤维变性。A145460型.
seq(seq(A(n,d-n),n=0..d),d=0..12);
#第二个Maple项目:
A: =proc(n,k)选项记忆`如果`(n=0,1,
加法(二项式(n-1,j-1)*j^k*A(n-j,k),j=1..n))
结束时间: