A196275-OEIS公司

A196275号

尺寸为n的柱凸排列的数量。

1, 4, 22, 152, 1262, 12232, 135544, 1690080, 23417928, 356958816, 5936071344, 106944112320, 2074955738160, 43135041684288, 956498746867584, 22535656688150016, 562187777547687552, 14803856501210021376, 410341578632728752384, 11942796083017877185536, 364141566064571517418752, 11607532093950790287928320 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`瓦茨拉夫·科特索维奇，n=1..200时的n，a（n）表（由Anthony J.Guttmann计算）` `尼古拉斯·R·比顿（Nicholas R.Beaton）、菲利波·失望（Filippo Disanto）、安东尼·古特曼（Anthony J.Guttmann）和西蒙·里纳尔迪（Simone Rinaldi），关于列凸置换的计数在FPSAC 2011中，冰岛雷克雅未克DMTCS项目。AO，2011年，第111-122页。`
	数学	cecka={}；Do[fxyz=Sum[If[h+d+w<=n，Subscript[c，h，d，w]x^hy^dz^w，0]，{h，0，n}，{d，0，n}，}；fxyz=简化[fxyz/.cecka]；feq=展开[在一起[（x-y）（z-y）；fxyz1=展开[简化[（x-y）（z-y）fxyz]]；fxyz2=0；做[p=fxyz1[[j]]；如果[Total[Exponent[p，{x，y，z}]]<=n+2，fxyz2+=p]，{j，1，Length[fxyz1]}]；poly2=0；做[p=feq[[j]]；如果[Total[Exponent[p，{x，y，z}]]<=n+2，poly2+=p]，{j，1，Length[feq]}]；cecknew=SolveAlways[fxyz2==poly2，{x，y，z}][[1]；cecka=加入[cecka，cecknew]；gfxyz=fxyz/。塞卡，{n，1，15}]；静止[系数列表[gfxyz/.{x->y，z->y}，y]](瓦茨拉夫·科特索维奇2021年6月7日*）
	交叉参考	`上下文中的序列：A267219型 A152404号 A062817号A000307号 A294346号 A049376号` `相邻序列：A196272号 A196273号 A196274号A196276号 A196277号 A196278号`
	关键词	`非n`
	作者	`N.J.A.斯隆2011年9月30日`
	扩展	`更多术语来自瓦茨拉夫·科特索维奇，2021年6月7日`
	状态	`经核准的`