%I#10 2020年3月24日07:44:53
%S 0,0,0,1,8,60440329025424204120170568014836470134240040,
%电话:126206022812313382536124509169330130310935888014098102762160,
%电话:15747390714960018139234184941262152352928643500262809607270736540
%N PE^2的第四列。
%C基本矩阵在A011971中;第二个电源在A078937中;三次幂在A078938中;第四次幂在A078939中。
%F PE=exp(数学(5))/exp(1);A=PE^2;a(n)=a[n,4],精确整数算术:PE=exp(matpascal(5)-matid(6));A=PE^2;a(n)=a[n,4]
%p A056857:=过程(n,c)组合[贝尔](n-1-c)*二项式(n-1,c);结束:A078937:=程序(n,c)添加(A056857(n,k)*A05685七(k+1,c),k=0..n);结束:A129325:=进程(n)A078937(n+1,3);结束:序列(A129325(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 a[n]:=A078937[n+1,3];
%t a/@Range[0,21](*_Jean-François Alcover_,2020年3月24日,继R.J.Mathar_*之后)
%o(PARI)m=matpascal(30)-matid(31);pe=匹配(31)+总和(i=1,30,m^i/i!);A=pe^2;A[,4]\\Herman Jamke(hermanjamke(AT)fastmail.fm),2008年5月1日
%Y请参阅A056857、A078937、A078 938、A078 944、A078945、A000110。
%Y参见A078937、A078938、A129323、A129342、A129352、A027710。
%Y参考A129327、A129328、A129329、A078944、A129331、A129332、A129333。
%K nonn,简单
%0、5
%A戈特弗里德·赫尔姆斯,2007年4月8日
%E更多来自R.J.Mathar_和Herman Jamke(hermanjamke(AT)fastmail.fm)的术语,2008年5月1日
|