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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A364457型 使用多米诺骨牌和(任何形状的)圆环的k X n矩形的瓷砖数量A(n,k);方阵A(n,k),n>=0,k>=0。 14
1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 6, 6, 1, 1, 1, 2, 17, 30, 17, 2, 1, 1, 2, 43, 145, 145, 43, 2, 1, 1, 3, 108, 733, 1294, 733, 108, 3, 1, 1, 4, 280, 3540, 12109, 12109, 3540, 280, 4, 1, 1, 5, 727, 17300, 110017, 215905, 110017, 17300, 727, 5, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0, 13
链接
阿洛伊斯·海因茨,反对角线n=0..25,平坦
维基百科,多米诺(数学)
维基百科,三格骨牌
配方奶粉
A(n,k)=A(k,n)。
例子
A(3.2)=A(2.3)=6:
.___. .___. .___. .___. .___. .___.
| | | |___| | | | |___| | ._| |_. |
| | | |___| |_|_| | | | |_| | | |_|
|_|_| |___| |___| |_|_| |___| |___| .
.
方阵A(n,k)开始:
1, 1, 1, 1, 1, 1, 1, 1, ...
1, 0, 1, 1, 1, 2, 2, 3, ...
1, 1, 2, 6, 17, 43, 108, 280, ...
1, 1, 6, 30, 145, 733, 3540, 17300, ...
1, 1, 17, 145, 1294, 12109, 110017, 1014847, ...
1, 2, 43, 733, 12109, 215905, 3710880, 64589501, ...
1, 2, 108, 3540, 110017, 3710880, 118624712, 3899306587, ...
1, 3, 280, 17300, 1014847, 64589501, 3899306587, 239677657279, ...
MAPLE公司
b: =proc(n,l)选项记忆;局部k,t;
如果max(l[])>n,则0 elif n=0或l=[],则1
elif min(l[])>0,则t:=min(l[]);b(n-t,映射(h->h-t,l))
对于k,如果l[k]=0,则打破fiod;b(n,底土(k=2,l))+
`如果`(k>1且l[k-1]=1,b(n,底土(k=2,k-1=2,l)),0)+
`如果`(k<nops(l)和l[k+1]=1,b(n,底土(k=2,k+1=2,l)),0)+
`如果`(k<nops(l)和l[k+1]=0,b(n,底土(k=1,k+1=1,l))+
b(n,底土(k=1,k+1=2,l))+b+
`如果`(k+1<nops(l)且l[k+1]=0且l[k+2]=0,
b(n,底土(k=2,k+1=2,k+2=2,l))+
b(n,底土(k=2,k+1=2,k+2=1,l)),0)+
`如果`(k+1<nops(l)and l[k+1]=0 and l[k+2]=0,b(n,subp(k=1,
k+1=1,k+2=1,l),0)+b(n,亚音速(k=3,l))
fi(菲涅耳)
结束时间:
A: =(n,k)->`if`(n>=k,b(n,[0$k]),b(k,[0$n])):
seq(seq(A(n,d-n),n=0..d),d=0..12);
数学
b[n_,l_]:=b[n,l]=模块[{k,t,RP=ReplacePart},其中[Max[l]>n,0,n==0|l=={},1,Min[l]>0,t=Min[l];b[n-t,l-t],真,对于[k=1,真,k++,如果[l[k]]==0,中断[]]];b[n,RP[l,k->2]]+如果[k>1&&l[[k-1]]==1,b[n、RP[l、{k->2、k-1->2}]],0]+如果[k<长度[l]&l[[k+1]]==1,b[n,RP[1,{k->2,k+1->2}],0]+如果[k<长度[1]&l[k+1]]=0,b[n,RP[l,{k->1,k+1->1}]]+b[n,RP[l,{k->1,k+1->2}]]+5[n,RP[l,}->2,k+1->1}]],0]+如果[k+1<长度[l]&&l[k+1]]==0&&l[[k+2]]==0,b[n,RP[l,{k->2,k+1->2,k+2->2}]]+b[n 0]+b[n,RP[l,k->3]]];
A[n_,k_]:=如果[n>=k,b[n,表[0,{k}]],b[k,表[0,{n}]];
表[表[A[n,d-n],{n,0,d}],{d,0,12}]//扁平(*Jean-François Alcover公司,2023年8月28日,之后阿洛伊斯·海因茨*)
交叉参考
主对角线给出A364504型.
囊性纤维变性。A219866型,A219987年,233320元.
关键词
非n,表格
作者
阿洛伊斯·海因茨2023年7月25日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日09:34。包含373543个序列。(在oeis4上运行。)