登录
A242352型
长度为n且正好为k下降的等距序列的数目T(n,k);三角形T(n,k),n>=0,0<=k<=n+2-天花板(2*sqrt(n+1)),按行读取。
13
1, 1, 2, 4, 1, 9, 6, 21, 29, 2, 51, 124, 28, 127, 499, 241, 10, 323, 1933, 1667, 216, 1, 835, 7307, 10142, 2765, 98, 2188, 27166, 56748, 27214, 2637, 22, 5798, 99841, 299485, 227847, 44051, 1546, 2, 15511, 363980, 1514445, 1708700, 563444, 46947, 570
抵消
0,3
评论
长度为n的等距序列是一个整数序列[s(1),…,s。
行总和给出A000110号.
行的最后元素给出A243484型.
链接
Joerg Arndt和Alois P.Heinz,行n=0..114,扁平
例子
T(4,0)=9:[0,0,0,0],[0,0,1],[0,1,0,2],[0,0,0,3],[00,0,1,1],[0,01,2],[0,1,2,2],[0,1,1,]。
T(4,1)=6:[0,0,1,0],[0,0,2,0],[0,0,2,1],[0,1,0,0]。
T(5,2)=2:[0,0,2,0],[0,1,0,1,0]。
三角形T(n,k)开始于:
: 1;
: 1;
: 2;
: 4, 1;
: 9, 6;
: 21, 29, 2;
: 51, 124, 28;
: 127, 499, 241, 10;
: 323, 1933, 1667, 216, 1;
: 835, 7307, 10142, 2765, 98;
: 2188, 27166, 56748, 27214, 2637, 22;
MAPLE公司
b: =proc(n,i,t)选项记忆;`if`(n<1,1,展开(添加(
`如果`(j<i,x,1)*b(n-1,j,t+`如果`(j=i,1,0),j=0..t+1)))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=0..度(p))(b(n-1,0$2)):
seq(T(n),n=0..15);
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n<1,1,展开[Sum[If[j<i,x,1]*b[n-1,j,t+如果[j==i,1,0]],{j,0,t+1}]];T[n_]:=函数[{p},表[系数[p,x,i],{i,0,指数[p,x]}][b[n-1,0,0]];表[T[n],{n,0,15}]//扁平(*Jean-François Alcover公司2015年2月9日,Maple之后*)
交叉参考
囊性纤维变性。A048993号(用于计数电平步长),A242351型(用于计算上升),A137251号(上升序列计数上升),A238858型(上升序列计数下降),A242153号(上升序列计算水平步数),A083479号.
关键词
非n,标签
作者
状态
经核准的