%I#26 2022年9月8日08:45:14
%编号:1,2,7,3218012009240806407862408467200997920001277337600,
%电话:17643225600261534873600414096883200069742632960000,
%电话:124490599833600023475370254336000466306218233856000973160803270656000
%N在[N]的所有排列中长度为1的排列数。(排列3574162有两个长度为1:357/4/16/2的序列。)
%C a(n)是一组大小为n的树状表格中的角数(参见Gao等人的链接)_米歇尔·马库斯(Michel Marcus),2015年11月18日
%H G.C.Greubel,n表,n=1..445的a(n)</a>
%H Alice L.L.Gao、Emily X.L.Gao、Patxi Laborde-Zubieta、Brian Y.Sun,<a href=“http://arxiv.org/abs/1511.05456“>类树表格中角点的枚举</a>,arXiv:1511.05456[math.CO],2016。
%H Ira M.Gessel,<a href=“http://hdl.handle.net/1721.1/16342“>生成函数和序列枚举,麻省理工学院博士论文,1977年。
%F a(n)=n*(n+4)/6,对于n>=2。
%例如:x*(6-6*x+x^2)/(6*(1-x)^2)。
%e a(3)=7,因为在排列123、13(2)、(2)13、23(1)、(3)12、(三)(2)(1)中有7个长度为1的行(显示在括号中)。
%p序列(细胞(n!*(n+4)/6),n=1..23);
%t加入[{1},表[n!(n+4)/6,{n,2,20}]](*_Vincozo Librandi_,2015年11月18日*)
%t静止[With[{nmax=50},CoefficientList[Series[x*(6-6*x+x^2)/(6*(1-x)^2),{x,0,nmax}],x]*Range[0,nmax]!]](*_G.C.格鲁贝尔,2017年12月20日*)
%o(岩浆)[1]cat[阶乘(n)*(n+4)/6:n in[2..25]];//_文森佐·利班迪(Vincenzo Librandi),2015年11月18日
%o(PARI)x='x+o('x^30);兽医(塞拉普拉斯(x*(6-6*x+x^2)/(6*(1-x)^2)))
%o(PARI)a(n)=如果(n==1,1,n!*(n+4)/6);\\_阿尔图格·阿尔坎,2017年12月21日
%K nonn公司
%O 1,2号机组
%2004年9月3日,德国作家A·E meric Deutsch和I ra M.Gessel
|