|
（*程序生成递增序列f[n]*的色散阵列T）
r=40；r1=12；c=40；c1=12；
a=3；b=4；c2=5；m[n_]：=如果[Mod[n，3]==0，1，0]；
f[n]：=a*m[n+2]+b*m[n+1]+c2*m[n]+4*层[（n-1）/3]
mex[list_]：=NestWhile[#1+1&，1，并集[list][[#1]]<=#1&，1、长度[Union[list]]]
行={NestList[f，1，c]}；
Do[rows=Append[rows，NestList[f，mex[Flatten[rows]]，r]]，{r}]；
t[i_，j_]：=行[[i，j]]；
表格形式[表格[t[i，j]，{i，1，10}，{j，1，10}]](*A191672号*)
扁平[表[t[k，n-k+1]，{n，1，c1}，{k，1，n}]](*A191672号*)
| 