%I#6 2021年7月5日09:09:39

%编号：1、2、1526384504325143230894831753720844831744，

%电话77131843774416164633162604546244269057157148962320，

%电话：1321883141629335120576481761427370573812000204137795884403682574690176995142560766872294586292544

%N a（N）=总和（abs（stirling1（N+1，k+1））*stirling2（N+1、k+1）*k^2，k=0..n）。

%F a（n）~c*LambertW（-1，-r*exp（-r））^n*n^2/（sqrt（n）*LambertW（-exp（-1/r）/r）^n），其中r=0.673313285145753168……是方程的根（1+1/（r*Lambert W（-eexp（-1/r）/r

%t表[Sum[Abs[StirlingS1[n+1，k+1]]StirlingS2[n+1、k+1]k^2，｛k，0，n｝]，｛n，0100｝]

%o（Maxima）makelist（总和（abs（stirling1（n+1，k+1））*stirling2（n+1、k+1）*k^2，k，0，n），n，0,24）；

%K nonn公司

%0、2

%A _Emanuele Munarini，2011年7月4日