%I#21 2017年11月19日02:28:14
%S 1,4,281781008549329879163357895519491154226932856147666219,
%电话:8095842434433858801624334993398133419407518731487440774,
%电话:4010463570150219878208175221205507141060360932241338362363963974502219867014703421770108923158026586497597183548915194615
%N从N行4列的网格或晶格的西北角到西南角的任意长度的自回避行走次数。
%C随着n的增加,a(n)/a(n-1)的比值似乎收敛到5.483左右。
%H Andrew Howroyd,n的表,n=1..100的a(n)</a>
%F 2017年11月18日来自科林·巴克的推测:(开始)
%传真:x*(1-8*x+34*x^2-66*x^3+21*x^4+85*x^5-64*x^6-45*x^7+26*x^8+11*x^9-3*x^10-x^11)/(1-8x+15*x*2*x^3-9*x^4+2*x^5+x^6)*。
%当n>12时,F a(n)=12*a(n-1)-54*a(n-2)+124*a(n3)-133*a(-n4)-16*a(v-5)+175*a(n-6)-94*a。
%F(结束)
%e对于n=2,使用符号D(own)、R(ight)、L(eft)、U(p),这4个遍历是{D、RDL、RRDLL、RRRDLLL}。
%t a[n_]:=块[{t=0,w,b=Array[1&,{n,4}]},w[rr_,cc_]:=Block[{r,c},如果[rr+cc==2,t++,Do[{r、c}={rr,cc}+e;如果[0<c<5&0<r<=n&b[[r,c]]>0,b[[r,c]]=0;w[r,c];b[[r,c]]=1],{e,{{-1,0},{1,0};b[[n,1]]=0;w[n,1];t] ;a/@范围[6](*Giovanni Resta_,2013年3月13日*)
%A271465的Y列4。参考A005409(3行网格)、A006189(3列网格)和A214931(4行网格)。
%K nonn,步行
%O 1,2号机组
%2013年3月13日,Gottfried_A _Toby
%E a(13)-a(14)摘自Giovanni Resta,2013年3月13日
%E 2016年4月8日_Andrew Howroyd_的第a(15)条及以后条款
|