%我#14 2020年7月11日11:02:48

%S 0,0,0,12120114010815104496103748410627560112508550，

%电话：123148146013933510734162864103584196507876519524453461392080，

%电话：313549334233440413879659405156856188737057169593783876449182595400

%N PE^3的第四列。

%C基本矩阵在A011971中；第二个电源在A078937中；三次幂在A078938中；第四次幂在A078939中。

%F PE=exp（数学（5））/exp（1）；A=PE^3；a（n）=a[n，4]，采用精确整数运算：PE=exp（matpascal（5）-matid（6））；A=PE^3；a（n）=a[n，4]

%例如：（x^3/6）*exp（3*（exp（x）-1））_伊利亚·古特科夫斯基，2020年7月11日

%p A056857:=过程（n，c）组合[贝尔]（n-1-c）*二项式（n-1，c）；结束：A078937：=程序（n，c）添加（A056857（n，k）*A05685七（k+1，c），k=0..n）；结束：A078938:=proc（n，c）加（A078937（n，k）*A056857（k+1，c），k=0..n）；结束：A129329：=进程（n）A078938（n+1,3）；结束：序列（A129329（n），n=0..27）；#_R.J.Mathar，2008年5月30日

%t A056857[n_，c]：=如果[n<=c，0，BellB[n-1-c]二项式[n-1，c]]；

%t A078937[n，c]：=总和[A056857[n，k]A056857[k+1，c]，{k，0，n}]；

%t A078938[n，c]：=总和[A078937[n，k]A056857[k+1，c]，{k，0，n}]；

%t a[n]：=A078938[n+1,3]；

%t a/@Range[0，20]（*_Jean-François Alcover_，2020年3月24日，继R.J.Mathar_*之后）

%Y请参阅A056857、A078937、A078 938、A078 944、A078945、A000110。

%Y参见A078937、A078938、A129323、A129342、A129352、A027710。

%Y参见A129327、A129328、A12932、A078944、A129331、A12933、A1293303。

%K nonn，简单

%0、5

%A戈特弗里德·赫尔姆斯，2007年4月8日

%E更多来自R.J.Mathar_的条款，2008年5月30日