%I#17 2023年8月12日11:35:16

%S 1,3,1,9,4,1,27,14,5,1,81,46,19,6,1243162,65,24,7,1729574247,84，

%电话：29,8,121872042955332103,34,9,116561727037331336417122,39，

%电话：1019683258901464954781717502141,44,11,1

%N反对偶读取的数组：T（m，N）=长度为N的m元单词数，其循环相邻元素相差不超过2。

%C所有行都是系数恒定的线性递归。请参阅PARI脚本以获取生成函数。

%H Andrew Howroyd，n的表，a（n）表示n=3..1277</a>

%e表格开始（m>=3，n>=0）：

%e 1 3 9 27 81 243 729 2187。。。

%e 1 4 14 46 162 574 2042 7270。。。

%e 1 5 19 65 247 955 3733 14649。。。

%e 1 6 24 84 332 1336 5478 22658。。。

%e 1 7 29 103 417 1717 7229 30793。。。

%e 1 8 34 122 502 2098 8980 38928。。。

%e 1 9 39 141 587 2479 10731 47063。。。

%e 1 10 44 160 672 2860 12482 55198。。。

%t差异=2；m0=差异+1；mmax=12；

%t传输Gf[m_，u_，t_，v_，z_]：=数组[u，m]。线性求解[IdentityMatrix[m]-z*数组[t，{m，m}]，数组[v，m]]

%t行Gf[d_，m_，z_]：=1+z*总和[TransferGf[m，Boole[#==k]&，Boole[绝对值[#1-#2]<=d]&，布尔值[Abs[#-k]<=d]&，z]，{k，1，m}]；

%t行[m_]：=行[m]=系数列表[RowGf[diff，m，x]+O[x]^mmax，x]；

%t t[m_/；m>=m0，n_/；n>=0]：=行[m][[n+1]]；

%t表[t[m-n，n]，{m，m0，mmax}，{n，m-m0，0，-1}]//压扁（*_Jean-François Alcover_，2017年6月16日，改编自PARI*）

%o（PARI）

%o传输Gf（m，u，t，v，z）=向量（m，i，u（i）；

%o行Gf（d，m，z）=1+z*总和（k=1，m，转移Gf（m，i->如果（i==k，1,0），（i，j）->abs（i-j）<=d，j->如果（abs（j-k）<=d,1,0），z））；

%o表示（m=3，10，打印（第Gf行（2，m，x））；

%o表示（m=3,10，v=Vec（第Gf行（2，m，x）+o（x^8））；对于（n=1，长度（v），打印1（v[n]，“，”）；打印（）；）；

%Y行3-32为A000244、A124805、A124906、A12480 7、A124828、A124843、A124851、A12485 2、A1248507、A124 858、A124 864、A124892-A124894、A124 898、A12 4935、A124947、A12 448-A1124958、A14 4994、A124998。

%Y参见A285266、A276562、A285281。

%K nonn，表

%O 3、2

%A A Andrew Howroyd_，2017年4月15日