登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A137378号 exp(x*(1-sqrt(1+t^2))/t)=sum_{n>=0}s_n(x)*t^k/k生成的多项式2^n*s_n的系数[x^k]的三角形!在第n行第k列中。 1
1, 0, -1, 0, 0, 1, 0, 6, 0, -1, 0, 0, -24, 0, 1, 0, -240, 0, 60, 0, -1, 0, 0, 1800, 0, -120, 0, 1, 0, 25200, 0, -7560, 0, 210, 0, -1, 0, 0, -282240, 0, 23520, 0, -336, 0, 1, 0, -5080320, 0, 1693440, 0, -60480, 0, 504, 0, -1, 0, 0, 76204800, 0, -7257600, 0, 136080, 0, -720, 0, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,8
评论
行总和为:1,-1,1,5,-23,-181,1681,17849,-259055,-3446857,69082561,。。
魏斯坦用“莫特多项式”来表示s_n(x),尽管他的定义与莫特的符号不同-R.J.马塔尔2013年10月3日
还有Maple程序中定义的序列的Bell变换。有关Bell变换的定义,请参见A264428型. -彼得·卢什尼2016年1月27日
链接
奥缪尔·库克苏,用广义Mott多项式求解变界时滞积分方程的一种新的数值方法阿纳多鲁大学科技期刊A,应用科学与工程(2018)第19卷,第4期,264-277。
N.F.莫特,电子的双重散射极化,程序。R.Soc.伦敦。A 135(827)(1932),第442页。
Eric Weisstein的《数学世界》,莫特多项式
维基百科,莫特多项式
配方奶粉
p(x)=支出[x*(1-平方[1+t^2])/t];权重2^n*n!;
M(n,x)=n/2^n*sum_{m=楼层((n+1)/2)..n}((-1)^m*(2*m-n)*二项式(n-1,m-1)*x^(2*m-n))/(m*(2%m-n)!)。[德米特里·克鲁奇宁2013年3月24日]
例子
1;
0,-1;
0,0,1;
0,6,0,-1;
0, 0, -24, 0, 1;
0, -240,0, 60, 0, -1;
0, 0, 1800, 0, -120, 0, 1;
0, 25200, 0, -7560, 0, 210, 0, -1;
0, 0, -282240, 0, 23520, 0, -336, 0, 1;
0, -5080320, 0, 1693440, 0, -60480, 0, 504, 0, -1;
0, 0, 76204800, 0, -7257600, 0, 136080, 0, -720, 0, 1;
MAPLE公司
#BellMatrix函数定义于A264428型.
BellMatrix(n->`if`(n::奇数,0,(-1)^(1+n/2)*(n+1)/(n/2+1)*(n!/(n/2)!)^2), 9); #彼得·卢什尼2016年1月27日
A137378号:=进程(n,k)
局部m;
如果n=0且k=0,则
1;
elif类型(n+k,“奇数”),则
0;
其他的
m:=(n+k)/2;
(-1)^m*k*二项式(n-1,m-1)/m/k;
%*n;
结束条件:;
结束进程:#R.J.马塔尔2018年11月17日
数学
p[t_]=支出[x*(1-平方[1+t^2])/t];表[ExpandAll[2^(n)*n!*SeriesCoefficient[Series[p[t],{t,0,30}],n]],{n,0,10}];a=表[系数列表[2^(n)*n!*系列系数[系列[p[t],{t,0,30}],n],x],{n,0,10}];压扁[a]
(*第二个节目:*)
BellMatrix[f_,len_]:=与[{t=数组[f,len,0]},表[BellY[n,k,t],{n,0,len-1},{k,0,len-1}]];
B=BellMatrix[函数[n,如果[OddQ[n],0,(-1)^(1+n/2)*(n+1)/(n/2+1)*(n!/(n/2)!)^2] ],行=12];
表[B[[n,k]],{n,1,rows},{k,1,n}]//展平(*Jean-François Alcover公司2018年6月28日之后彼得·卢什尼*)
程序
(最大值)
M(n):=n*总和((2*m-n)*(-1)^(m)*二项式(n-1,m-1)*x^(2*m-n)/(2*m.n)*(m) ),m,地板((n+1)/2),n);
对于n:0到7,如果n=0,则打印([1])else(LL:生成列表(系数(ratsimp(M(n)),x,k),k,0,n),打印(LL))//德米特里·克鲁奇宁2013年3月24日
交叉参考
关键词
,签名
作者
罗杰·巴古拉2008年4月9日
状态
已批准

查找|欢迎|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月24日22:17 EDT。包含371964个序列。(在oeis4上运行。)