OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
18441年 三角形L,按行读取,等于A118435号,L^2由一条对角线组成(从主对角线向下两行)。 5
0, 1, 0, -4, 2, 0, -12, 12, 3, 0, 32, -48, -24, 4, 0, 80, -160, -120, 40, 5, 0, -192, 480, 480, -240, -60, 6, 0, -448, 1344, 1680, -1120, -420, 84, 7, 0, 1024, -3584, -5376, 4480, 2240, -672, -112, 8, 0, 2304, -9216, -16128, 16128, 10080, -4032, -1008, 144, 9, 0 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,4
评论
L=对数(A118435号)=对数(H*[C^-1]*H],其中C=帕斯卡三角形和H=A118433号其中H^2=I(单位矩阵)。
链接
公式
对于L的偶数指数,L^(2m)是一条对角线:
如果n==k+2m,则[L^(2m)](n,k)=n/k*2^(n-k-2m)/(n-k-2m)!;否则,如果n!=k+2m:[L^(2m)](n,k)=0。
对于L的奇数指数:
如果n>=k+2m+1,则[L^(2m+1)](n,k)=n/k*2^(n-k-2m-1)/(n-k-2m-1)*(-1)^(m+[(n+1)/2]-[k/2]+n-k);否则,如果n<k+2m+1:[L^(2m)](n,k)=0。
无符号行总和等于A027471号(n+1)=n*3^(n-1)。
例子
矩阵log,L=log(H*[C^-1]*H],开始于:
0;
1, 0;
-4、2、0;
-12, 12, 3, 0;
32, -48, -24, 4, 0;
80, -160, -120, 40, 5, 0;
-192, 480, 480, -240, -60, 6, 0;
-448、1344、1680、-1120、-420、84、7、0;
1024, -3584, -5376, 4480, 2240, -672, -112, 8, 0;
2304, -9216, -16128, 16128, 10080, -4032, -1008, 144, 9, 0;
...
矩阵正方形L^2是一条对角线:
0;
0, 0;
2, 0, 0;
0, 6, 0, 0;
0, 0, 12, 0, 0;
0, 0, 0, 20, 0, 0;
0, 0, 0, 0, 30, 0, 0;
...
发件人彼得·卢什尼2020年4月23日:(开始)
根据Maple脚本的计算,在无符号形式且没有主对角线的情况下:
[0], [0]
[1], [1]
[2], [4, 2]
[3], [12, 12, 3]
[4], [32, 48, 24, 4]
[5], [80, 160, 120, 40, 5]
[6] ,[192448024020,60,6]
[7] [448、1344、1680、1120、420、84、7](结束)
MAPLE公司
#调和数的广义Worpitzky变换。
CL:=p->多项式工具:-系数列表(展开(p),x):
H:=n->添加(1/k,k=1..n):
Trow:=proc(n)局部k,v;如果n=0,则返回[0]fi;
加法(加法((-1)^(n-v)*二项式(k,v)*H(k)*(-x+v-1)^n,v=0..k),k=0..n);CL(%)结束:
对于从0到7的n,执行Trow(n)od#彼得·卢什尼2020年4月23日
数学
nmax=12;
h[n_,k_]:=二项式[n,k]*(-1)^(商[n+1,2]-商[k,2]+n-k);
H=表格[H[n,k],{n,0,nmax},{k,0,nmax}];
Cn=表[二项式[n,k],{n,0,nmax},{k,0,nmax}];
L=矩阵对数[H.Inverse[Cn]。H];
表[L[[n+1,k+1]],{n,0,nmax},{k,0,n}]//展平(*让-弗朗索瓦·奥尔科弗2024年4月8日*)
黄体脂酮素
(PARI)/*根据L作为H*C^-1*H矩阵对数的定义:*/
{L(n,k)=局部(H=矩阵(n+1,n+1,r,c,if(r>=c,二项式(r-1,c-1)*(-1)^(r\2-(c-1)\2+r-c))+1]}
for(n=0,10,for(k=0,n,print1(L(n,k),“,”);打印(“”)
(PARI)/*矩阵幂L^m由下式给出:*/
{L(n,k,m)=如果(m%2==0,如果(n==k+m,n!/k!*2^(n-k-m)/
对于(n=0,10,对于(k=0,n,print1(L(n,k,1),“,”));打印(“”)
交叉参考
囊性纤维变性。A118435号(exp(L)),A118442号(第0列),A118443号(行和),A027471号(无符号行总和);A118433号(自反三角形),A001815号(第1列?),A001789号(第二列的第三个?)。
关键词
签名,
作者
保罗·D·汉纳2006年4月28日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月11日04:57。包含373289个序列。(在oeis4上运行。)