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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A233308型 使用形状为k X 1 X 1的k*n砖的k X k X n盒子的瓷砖数量A(n,k);方阵A(n,k),n>=0,k>=1,由反对偶读取。 7
1, 1, 1, 1, 2, 1, 1, 2, 9, 1, 1, 2, 4, 32, 1, 1, 2, 4, 21, 121, 1, 1, 2, 4, 8, 92, 450, 1, 1, 2, 4, 8, 45, 320, 1681, 1, 1, 2, 4, 8, 16, 248, 1213, 6272, 1, 1, 2, 4, 8, 16, 93, 1032, 4822, 23409, 1, 1, 2, 4, 8, 16, 32, 668, 3524, 18556, 87362, 1, 1, 2, 4, 8, 16, 32, 189, 3440, 13173, 70929, 326041, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,5
链接
阿洛伊斯·海因茨,反对角线n=0..17,平坦
配方奶粉
A(n,k)=2^n=A000079号(n) 对于k>n。
A(n,n)=A068156号(n) 对于n>1。
例子
方阵A(n,k)开始:
1, 1, 1, 1, 1, 1, ...
1, 2, 2, 2, 2, 2, ...
1, 9, 4, 4, 4, 4, ...
1, 32, 21, 8, 8, 8, ...
1, 121, 92, 45, 16, 16, ...
1, 450, 320, 248, 93, 32, ...
1, 1681, 1213, 1032, 668, 189, ...
16272、4822、3524、3440、1832。。。
123409、18556、13173、13728、11976。。。
MAPLE公司
b: =proc(n,l)选项记忆;局部d,t,k;d: =isqrt(nops(l));
如果max(l[])>n,则0 elif n=0,则1
elif min(l[])>0,则t:=min(l[]);b(n-t,映射(x->x-t,l))
else表示k,而l[k]>0表示od;b(n,底土(k=d,l))+
`如果`(irem(k,d)=1和{seq(l[k+j],j=1..d-1)}={0},
b(n,[seq(`if`(h-k<d和h-k>=0,1,l[h]),h=1..nops(l))]),0)+
`如果`(k<=d和{seq(l[k+d*j],j=1..d-1)}={0},
b(n,[seq(`if`(irem(h-k,d)=0,1,l[h]),h=1..nops(l))]),0)
fi(菲涅耳)
结束时间:
A: =(n,k)->`如果`(k>n,2^n,b(n,[0$k^2])):
seq(seq(A(n,1+d-n),n=0..d),d=0..11);
数学
b[n_,l_]:=b[n,l]=模[{d,t,k},d=Sqrt[Length[l]];其中[Max[l]>n,0,n==0,1,Min[l]>0,t=Min[l];b[n-t,l-t],真,k=位置[l,0,1][[1,1]];b[n,ReplacePart[l,k->d]]+If[Mod[k,d]==1&&并集[Table[l[[k+j]],{j,1,d-1}]=={0},b[n,Table[If[h-k<d&h-k>=0,1,l[h]],},1,Length[l]}]],0]+If[k<=d&&并置[Table[1[k+d*j]],b[n,表[If[Mod[h-k,d]==0,1,l[[h]]],{h,1,Length[l]}]],0]];a[n_,k_]:=如果[k>n,2^n,b[n,数组[0&,k^2]];表[表[a[n,1+d-n],{n,0,d}],{d,0,11}]//扁平(*Jean-François Alcover公司,2013年12月13日,翻译自枫叶*)
交叉参考
对角线包括:A000079号,A068156号.
关键词
非n,
作者
阿洛伊斯·海因茨2013年12月7日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年3月28日10:31。包含371240个序列。(在oeis4上运行。)