搜索: a269869-编号:a269866
|
|
|
|
0, 1, 11, 110, 2402, 128967, 16767653, 5436906668, 4406952731948, 8819634719356421, 43329348004927734247, 522235268182347360718818, 15436131339319739257518081878, 1117847654274955574635482276231683, 198163274851163063009517020867737770265
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
Eric Weistein的《数学世界》,图形周期
Eric Weistein的《数学世界》,三角网格图
|
|
例子
|
在每边有3个顶点的三角形网格中的11个循环中,4个循环的长度为3,3个循环的宽度为4,3个周期的长度为5,1个周期的宽度为6。
a(3)上的4个基本循环形状:
o个
/\
o o---o o---o o o
/ \ / / / \ / \
o--o-o-o-o-0-o-o-o-o-o-o-o
|
|
程序
|
(Python)
#使用石墨
从graphillion导入GraphSet
定义make_n_triangular_grid_graph(n):
s=1
网格=[]
对于范围(n+1,1,-1)内的i:
对于范围(i-1)中的j:
a、 b,c=s+j,s+j+1,s+i+j
网格扩展([(a,b),(a,c),(b,c)])
s+=i
回流格栅
如果n==1:返回0
universe=make_n_triangular_grid_graph(n-1)
GraphSet.set_universe(宇宙)
cycles=图形集.cycles()
返回周期.len()
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
A288852型
|
| n×n×n三角网格中k大小匹配的数量T(n,k);三角形T(n,k),n>=0,0<=k<=楼层(n*(n+1)/4),按行读取。 |
|
+10 6
|
|
|
1, 1, 1, 3, 1, 9, 15, 2, 1, 18, 99, 193, 108, 6, 1, 30, 333, 1734, 4416, 5193, 2331, 240, 1, 45, 825, 8027, 45261, 151707, 298357, 327237, 180234, 40464, 2238, 1, 63, 1710, 26335, 255123, 1629474, 6995539, 20211423, 38743020, 47768064, 35913207, 15071019
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
评论
|
n X n X n三角形网格有n行,第i行中有i个顶点。每个顶点连接到同一行中的相邻顶点,每个相邻行中最多有两个顶点。图中有A000217号(n) 顶点和3*A000217号(n-1)边。
|
|
链接
|
|
|
配方奶粉
|
求和{i=0..1}T(n,楼层(n*(n+1)/4)-i)=A271612型(n) ●●●●。
求和{i=0..2}T(n,楼层(n*(n+1)/4)-i)=A271614型(n) ●●●●。
求和{i=0..3}T(n,楼层(n*(n+1)/4)-i)=A271616型(n) ●●●●。
|
|
例子
|
三角形T(n,k)开始于:
1;
1;
1, 3;
1、9、15、2;
1, 18, 99, 193, 108, 6;
1, 30, 333, 1734, 4416, 5193, 2331, 240;
1, 45, 825, 8027, 45261, 151707, 298357, 327237, 180234, 40464, 2238;
|
|
MAPLE公司
|
b: =proc(l)选项记忆;局部n,k;n: =nops(l);
如果n=0,则为1
elif min(l)>0,然后b(底土(-1=NULL,map(h->h-1,l))
else表示k到n,而l[k]>0表示od;b(亚音速(k=1,l))+
展开(x*(`if`(k<n,b(底土(k=2,l)),0)+
`如果`(k<n且l[k+1]=0,b(底土(k=1,k+1=1,l)),0)+
`如果`(k>1且l[k-1]=1,b(底土(k=1,k-1=2,l),0))
菲
结束时间:
T: =n->(p->seq(系数(p,x,i),i=0..度(p))(b([0$n])):
seq(T(n),n=0..10);
|
|
数学
|
b[l]:=b[l]=模[{n=Length[l],k},其中[n==0,1,Min[l]>0,b[ReplacePart[l-1,-1->Nothing]],真,对于[k=1,k<=n&&l[k]]>0,k++];b[ReplacePart[l,k->1]]+x*展开[If[k<n,b[RepleacePart[1,k->2]],0]+如果[k<n&l[[k+1]]==0,b[ReplacePart[1,{k->1,k+1->1}]],0]+如果[k>1&l[[k-1]]==1,b[RelacePart[l,{k->1,k-1->2}]]、0]];
T[n_]:=表[系数[#,x,i],{i,0,指数[#,x]}]&[b[表[0,n]]];
|
|
交叉参考
|
|
|
关键词
|
非n,标签
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 0, 0, 2, 6, 0, 0, 2196, 37004, 0, 0, 2317631400, 216893681800, 0, 0, 2326335506123418128, 1208982377794384163088, 0, 0, 2220650888749669503773432361504, 6408743336016148761893699822360672, 0, 0, 2015895925780490675949731718780144934779733312
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
参考文献
|
J.Propp,《匹配的枚举:问题与进展》,L.J.Billera等人主编,《代数组合数学的新观点》,剑桥,1999年,第255-291页(见问题17)。
|
|
链接
|
J.Propp,《匹配的枚举:问题和进展》,载于L.J.Billera等人(编辑),代数组合学的新观点
|
|
配方奶粉
|
|
|
MAPLE公司
|
带(LinearAlgebra):a:=proc(n)选项记住;局部l、ll、i、j、h0、h1、M;如果n=0,则返回1 fi;如果n<0或成员(irem(n,4),[1,2]),则返回0 fi;l: =[];对于从1到n-1的j,做h0:=j*(j-1)/2+1;h1:=j*(j+1)/2+1;对于i从1到j,做l:=[l[],[h1,h1+1]];如果irem(i,2)=1,则l:=[l[],[h1,h0]];h1:=h1+1;l: =[l[],[h1,h0]];h0:=h0+1其他l:=[l[],[h0,h1]];h1:=h1+1;l: =[l[],[h0,h1]];h0:=h0+1个月;M: =矩阵((n+1)*n/2);对于l中的ll do M[ll[1],ll[2]:=1;M[ll[2],ll[1]]:=-1 od:isqrt(行列式(M))end:seq(a(n),n=0..20)#阿洛伊斯·海因茨2010年5月8日
|
|
数学
|
a[n_]:=a[n]=模[{l,ll,i,j,h0,h1,M},如果[n==0,返回[1];如果[n<0||MemberQ[{1,2},Mod[n,4]],返回[0]];l={};对于[j=1,j<=n-1,j++,h0=j*(j-1)/2+1;h1=j*;如果[Mod[i,2]==1,l=Join[l,{h1,h0}];h1=h1+1;l=连接[l,{h1,h0}];h0=h0+1,l=连接[l,{h0,h1}];h1=h1+1;l=连接[l,{h0,h1}];h0=h0+1]]];M[_,_]=0;做[M[ll[[1]],ll[[2]]]=1;M[ll[[2]],ll[[1]]]=-1,{ll,分区[l,2]}];Sqrt[Det[Array[M,{n*(n+1)/2,n*(n+1)/2}]];表[a[n],{n,0,23}](*Jean-François Alcover公司2014年4月17日之后阿洛伊斯·海因茨*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 1, 8, 64, 1331, 64000, 6400075, 1404928000, 677298787768, 712186032947200, 1635557819719974912, 8209592592625295700893, 90036881979773511965369428, 2157454308508779392217680572439
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
Eric Weistein的《数学世界》,独立边集
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
A071093号
|
| 三角形图中每边有n个节点的完美匹配数,当n经过与0或3模4同余的数时。 |
|
+10 三
|
|
|
1, 2, 6, 2196, 37004, 2317631400, 216893681800, 2326335506123418128, 1208982377794384163088, 2220650888749669503773432361504, 6408743336016148761893699822360672, 2015895925780490675949731718780144934779733312, 32307672245407537492814937397129549558917000333504
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
参考文献
|
詹姆斯·普罗普(James Propp),《匹配枚举:问题与进展》,L.J.Billera等人主编,《代数组合数学的新观点》,剑桥,1999年,第255-291页(见问题17)。
|
|
链接
|
詹姆斯·普罗普(James Propp),《配对枚举:问题与进展》,载于L.J.Billera等人(编辑),代数组合学的新观点
|
|
配方奶粉
|
|
|
MAPLE公司
|
with(LinearAlgebra):b:=proc(n)选项记住;局部l、ll、i、j、h0、h1、M;如果n=0,则返回1fi;如果n<0或成员(irem(n,4),[1,2]),则返回0 fi;l: =[];对于从1到n-1的j,做h0:=j*(j-1)/2+1;h1:=j*(j+1)/2+1;对于i从1到j,做l:=[l[],[h1,h1+1]];如果irem(i,2)=1,则l:=[l[],[h1,h0]];h1:=h1+1;l: =[l[],[h1,h0]];h0:=h0+1其他l:=[l[],[h0,h1]];h1:=h1+1;l: =[l[],[h0,h1]];h0:=h0+1英尺;M: =矩阵((n+1)*n/2);对于l中的ll do M[ll[1],ll[2]:=1;M[ll[2],ll[1]:=-1 od:isqrt(行列式(M));结束:a:=n->b(2*n+irem(n,2)):seq(a(n),n=0..10)#阿洛伊斯·海因茨,2010年5月8日
|
|
数学
|
b[n_]:=b[n]=模[{l,ll,i,j,h0,h1,M},如果[n==0,返回[1];如果[n<0||MatchQ[Mod[n,4],1|2],返回[0]];l={};对于[j=1,j<=n-1,j++,h0=j*(j-1)/2+1;h1=j*(j+1)/2+1;对于[i=1,i<=j,i++,AppendTo[l,{h1,h1+1}];如果[Mod[i,2]==1,则附加到[l,{h1,h0}];h1++;附加到[l,{h1,h0}];h0++,附加到[l,{h0,h1}];h1++;附加到[l,{h0,h1}];h0++]]];M[_,_]=0;(M[#[[1],#[2]]]=1;M[#[2]],#[1]]]=-1)&/@l;Sqrt[Det[Array[M,{n*(n+1)/2,n*(n+1)/2}]];a[n]:=b[2*n+模态[n,2];表[a[n],{n,0,12}](*Jean-François Alcover公司2014年4月29日之后阿洛伊斯·海因茨*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0, 4, 198, 84682, 281721996, 7392711987818, 1528658402287559670, 2490983667363798650708788, 31987702603596066902310936860946, 3237032742135065575663156511653859260726, 2581445727611992619431296420645395411748335733438
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
1, 3, 11, 86, 1318, 36149, 1905037, 185934481, 34000082535, 11612664144891, 7414832091145015
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
Eric Weistein的《数学世界》,三角网格图
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
搜索在0.008秒内完成
|