| 数学
|
A001035号= {1, 1, 3, 19, 219, 4231, 130023, 6129859, 431723379, 44511042511, 6611065248783, 1396281677105899, 414864951055853499, 171850728381587059351, 98484324257128207032183, 77567171020440688353049939, 83480529785490157813844256579, 122152541250295322862941281269151, 241939392597201176602897820148085023};
max=长度[A001035号]-1;
B[x_]=总和[A001035号[[k+1]]*x^k/k!,{k,0,max}];
A[x_]=1+对数[B[x]];
A001927号=系数列表[A[x]+O[x]^(最大-1),x]*范围[0,最大-2]!;
a[n_]:=总和[StirlingS2[n,k]*A001927号[[k+1]],{k,0,n}];
表[a[n],{n,0,max-2}](*Jean-François Alcover公司,2018年8月30日,之后弗拉德塔·乔沃维奇*)
|