%I#16 2017年4月1日13:58:40
%S 1,1,-1,-4,9,52,-175,-1370598560216,-32063,-392955024549745,
%电话:354693796,-2543955167,-42233123834105261456404634620016,
%电话:57626692351871,-120376737110479011918048043239377274395314816604636
%N E.g.f.exp(tanh(x)/exp(x))。
%F a(n)=总和(m=1..n,总和(i=0..n-m,二项式(n,i+m)*(m^(n-i-m)*)(总和(k=0..i+m,stirling2(i+m,k+m)*2^(i-k)*二项式!*(-1)^(k+n-i-m)))/m!),n>0,a(0)=1。-_Vladimir Kruchinin,2011年6月6日
%t支出[Tanh[x]/Exp[x]]
%t系数列表[系列[E^(Tanh[x]/E^x),{x,0,20}],x]*范围[0,20]!(*_Vaclav Kotesovec_,2015年1月23日*)
%o(最大值)
%o a(n):=总和(二项式(n,i+m)*(m^(n-i-m)*!*(-1)^(k+n-i-m),k,0,i+m)),i,0,n-m)/m!,m,1,n);/*_Vladimir Kruchinin,2011年6月6日*/
%K符号,简单
%0、4
%A·R·H·哈丁_
%E Lended with signs by _Livier Gérard_1997年3月15日