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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A156766号 三角形T(n,k,m)=f(n,m)/(f(k,m!,m=2,按行读取。
1, 1, 1, 1, 8, 1, 1, 78, 78, 1, 1, 960, 9360, 960, 1, 1, 14520, 1742400, 1742400, 14520, 1, 1, 262080, 475675200, 5854464000, 475675200, 262080, 1, 1, 5508720, 180465667200, 33594378048000, 33594378048000, 180465667200, 5508720, 1, 1, 132249600, 91065752064000, 305980926935040000, 4627961519892480000, 305980926935040000, 91065752064000, 132249600,1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,5
链接
配方奶粉
T(n,k,m)=f(n,m)/(f(k,m!,m=2。
T(n,k,m)=f(n,m)/(f(k,m-G.C.格鲁贝尔2021年6月19日
例子
三角形的开头为:
1;
1, 1;
1, 8, 1;
1, 78, 78, 1;
1, 960, 9360, 960, 1;
1, 14520, 1742400, 1742400, 14520, 1;
1, 262080, 475675200, 5854464000, 475675200, 262080, 1;
数学
(*第一个程序*)
b[n_,k_]:=如果[k==0,n!,乘积[j!*((k+1)^j-1)/k,{j,n}]];
T[n_,k_,m_]:=如果[n==0,1,b[n,m]/(b[k,m]*b[n-k,m])];
表[T[n,k,2],{n,0,12},{k,0,n}]//压扁(*由修改G.C.格鲁贝尔2021年6月19日*)
(*第二个节目*)
f[n_,k_]:=如果[k==0,n!,(-1)^n*BarnesG[n+2]QPochhammer[k+1,k+1,n]/k^n];
T[n_,k_,m_]:=如果[n==0,1,f[n,m]/(f[k,m]*f[n-k,m])];
表[T[n,k,2],{n,0,12},{k,0,n}]//展平(*G.C.格鲁贝尔,2021年6月19日*)
黄体脂酮素
(岩浆)
f: =func<n,k|n eq 0 select 1 else k eq 0选择阶乘(n)else(&*[阶乘(j)*((k+1)^j-1):[1..n]]中的j)/k^n>;
T: =func<n,k,m|n eq 0选择1其他f(n,m)/(f(k,m)*f(n-k,m;
[T(n,k,2):[0..n]中的k,[0..12]]中的n//G.C.格鲁贝尔2021年6月19日
(鼠尾草)
从sage.combinat.q_analogues导入q_pochhammer
@缓存函数
定义f(n,k):如果(k==0)else(-1/k)^n*乘积((1..n)中j的阶乘(j))*q_pochhammer(n,k+1,k+1),则返回阶乘(n)
def T(n,k,m):如果(n==0),则返回1,否则f(n,m)/(f(k,m)*f(n-k,m))
压扁([[T(n,k,2)代表k in(0..n)]代表n in(0..12)])#G.C.格鲁贝尔2021年6月19日
交叉参考
囊性纤维变性。A007318元(m=0),A156765号(m=1),该序列(m=2),A156767号(m=3)。
关键词
非n,
作者
罗杰·巴古拉2009年2月15日
扩展
编辑人G.C.格鲁贝尔2021年6月19日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月29日04:26。包含372921个序列。(在oeis4上运行。)