t[1]={2};t[2]={3};t[3]={2,2};t[4]={2,3};t[5]={3,2};
t[6]={2,2,2};t[7]={3,3};
t[8]={3,2,2};t[9]={2,2,3};t[10]={2,3,2};
t[11]={3,2,3};t[12]={3,3,2};
z=500;g[k}:如果[EvenQ[k],{2},{3}];
f=6;而[f<13,n=f;而[n<z,p=1;
而[p<15,m=2N+1;v=t[n];k=0;
而[k<2^p,t[m+k]=连接[g[k],t[n+地板[k/2]];k=k+1];
p=p+1;n=m]];f=f+1]
r[nè]:=选择[Range[30000],Max[Map[Length,Split[t[#]]]==n&,12];
TableForm[表[r[n],{n,1,12}]](*A299327号,数组*)
w[nˉ,kˉ]:=r[n][[k]];
Table[w[n-k+1,k],{n,12},{k,n,1,-1}]//展平(*A299327号,序列*)
|