| 数据
|
1, 2, 3, 5, 4, 6, 7, 9, 8, 10, 11, 15, 13, 19, 12, 16, 21, 31, 14, 20, 17, 23, 22, 32, 25, 33, 27, 39, 43, 63, 18, 24, 26, 34, 35, 47, 51, 67, 28, 40, 44, 64, 29, 41, 45, 65, 36, 48, 52, 68, 37, 49, 53, 69, 55, 79, 87, 127, 71, 95, 103, 135, 30, 42, 46, 66
|
| 数学
|
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=190;g[k_]:=如果[EvenQ[k],{2},{3}];f=6;
而[f<13,n=f;而[n<z,p=1;
而[p<12,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=米]];f=f+1]
r[n_]:=反向[t[n]]
展平[表格[Select[Range[2000],t[#]==r[n]&],{n,1,1500}]];(*A299237型*)
|