登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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
链接
阿洛伊斯·海因茨,反对角线n=0..15,平坦
例子
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日,改编自枫叶*)
交叉参考
囊性纤维变性。A269129型,A331562.
关键词
非n,
作者
阿洛伊斯·海因茨2016年8月12日
状态
经核准的

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

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

上次修改时间:2024年4月18日21:51 EDT。包含371781个序列。(在oeis4上运行。)