%I#22 2021年7月3日21:16:22
%S 1,1,2,3,8,14,36,7017737294220565222117362987868576175038,
%电话:40832810453324682616326688151070153879186593432564240296399,
%电话:5830018501501520574366568273694528956932320177260359899677902
%N从八进制原点开始的八进制网格上的N步自回避路径数。
%C类似于A038373,但使用八分位网格而不是象限。八分网格是在对角线上划分的象限网格的一半,包括对角线网格正方形。它的形状是一个直角三角形,斜边上有一个台阶边缘。正方形坐标满足x>=0、y>=0和x>=y。
%C楔形角Pi/4.-方形晶格的Guttmann-Torrie级数系数C_n^2_N.J.A.Sloane,2015年7月6日
%H A.J.Guttmann和G.M.Torrie,<A href=“https://doi.org/10.1088/0305-4470/17/18/023“>SAW和伊辛模型边缘的临界行为,J.Phys.a 17(1984),3539-3552。
%H Sean A.Irvine,<A href=“https://github.com/archmageirvine/joeis/blob/master/src/irvine/oeis/a129/A129700.java“>Java程序(github)
%o(C)
%o#包括<stdio.h>
%o#包含<stdlib.h>
%o#定义网格化20
%o void Recur(int级别,int最大级别,int rgBd[][GRIDSIZE],int i,int j,int rgCt[]){
%o如果(i<0|j<0|i>=GRIDSIZE||j>=GRIDSIZE||级别>=maxlevel||j>i||rgBd[i][j]!=0)返回;
%o rgCt[级别]+=1;
%o rgBd[i][j]=1;
%o重复(级别+1、最大级别、rgBd、i+1、j、rgCt);
%o重复(等级+1,最大等级,rgBd,i-1,j,rgCt);
%o重复(级别+1、最大级别、rgBd、i、j+1、rgCt);
%o重复(级别+1、最大级别、rgBd、i、j-1、rgCt);
%o rgBd[i][j]=0;
%o}(o)
%o int main(int argc,char**argv){
%o int rgBd[GRIDSIZE][GRIDSIZE]={0};
%o整数rgCt[GRIDSIZE]={0};
%o int maxlevel=网格化;
%o如果(argc>1){
%o最大水平=atoi(argv[1]);
%o如果(maxlevel<0||maxlevel>GRIDSIZE){
%o printf(“错误参数”);
%o返回0;
%o}(o)
%o}(o)
%o重复(0,最大级别,rgBd,0,0,rgCt);
%o表示(int i=0;i<maxlevel;i++)printf(“%2d”,rgCt[i]);
%o返回0;
%o}(o)
%Y参考A038373。
%K nonn,更多
%氧1,3
%2007年6月1日,A Bill Blewett_
%E a(28)-a(31)摘自Sean a.Irvine_,2021年7月3日
|