|
|
A275784型 |
| 编号A(n,k)的up-down序列,每个序列有k个拷贝,分别为1,2,。。。,n;方阵A(n,k),n>=0,k>=0。 |
|
8
|
|
|
1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 1, 0, 1, 4, 5, 1, 1, 0, 1, 12, 53, 16, 1, 1, 0, 1, 36, 761, 936, 61, 1, 1, 0, 1, 120, 12661, 87336, 25325, 272, 1, 1, 0, 1, 400, 229705, 9929000, 18528505, 933980, 1385, 1, 1, 0, 1, 1400, 4410665, 1267945800, 17504311533, 6376563600, 45504649, 7936, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
0,14
|
|
链接
|
|
|
例子
|
A(4,1)=5:1324142324142413412。
A(3,2)=4:121323132123121312。
A(3,3)=12:1213232121323132121323231131213232132312132132323121231213132231213231231312132231323121232312131232313121。
A(2,4)=1:121212。
方阵A(n,k)开始于:
1, 1, 1, 1, 1, 1, ...
1, 1, 0, 0, 0, 0, ...
1, 1, 1, 1, 1, 1, ...
1, 2, 4, 12, 36, 120, ...
1, 5, 53, 761, 12661, 229705, ...
1, 16, 936, 87336, 9929000, 1267945800, ...
1, 61, 25325, 18528505, 17504311533, 19126165462061, ...
1, 272, 933980, 6376563600, 59163289699260, ...
|
|
MAPLE公司
|
b: =proc(n,l)选项记忆`如果`(l=[],1,`如果`(irem(add(i,
i=l),2)=0,加上(b(i,底土(i=`if`(l[i]=1,[][],l[i]-1),
l) ),i=n+1..nops(l)),加(b(i-`if`(l[i]=1,1,0),底图(
i=`如果`(l[i]=1,[][],l[i]-1),l),i=1..n-1))
结束时间:
A: =(n,k)->`如果`(k=0,1,b(`如果'(irem(k*n,2)=0,0,n+1),[k$n]):
seq(seq(A(n,d-n),n=0..d),d=0..10);
|
|
数学
|
b[n_,l_List]:=b[n,l]=如果[l=={},1,如果[EvenQ[Total[l]],和[b[i,ReplacePart[l,i->如果[l[i]]==1,无,l[i]-1]],{i,n+1,长度[l]}],和[b[i-如果[l[i]]=1,1,0],替换部分[l,i->如果[l]]==1,无,l[i]]-1]]],{i,1,n-1}]];A[n_,k_]:=如果[k==0,1,b[如果[EvenQ[k*n],0,n+1],数组[k&,n]];表[A[n,d-n],{d,0,10},{n,0,d}]//展平(*Jean-François Alcover公司2017年1月23日,改编自枫叶*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|