%I#30 2024年3月10日08:13:43

%S 1,0,1,3,6,403752541210282646330376541219695625493946，

%电话：10676900598185753808331349542929746572963017028840，

%电话：160696467774037637107535997019753918150959889615771241103051208155066215032010949917613019105058680403510485671

%N E.g.f.满足A（x）=1+x^2/2*exp（x*A（x））。

%F a（n）=n！*Sum_｛k=0..地板（n/2）｝k^（n-2*k）*二项式（n-2*k+1，k）/（2^k*（n-2*k+1）*（n-2*k）！）。

%t最大值nmax=20；系数列表[系列[1-LambertW[-E^x*x^3/2]/x，{x，0，nmax}]，x]*范围[0，nmax]！（*_Vaclav Kotesovec_，2024年3月10日*）

%o（PARI）a（n）=n*求和（k=0，n\2，k^（n-2*k）*二项式（n-2xk+1，k）/（2^k*（n-2*1）*（n-2%k）！）；

%Y参考A161631，A371066。

%Y参考A371042。

%K nonn公司

%0、4

%2024年3月9日，曼亚马市A区