| 数据
|
1, 2, 2, 3, 5, 8, 12, 19, 30, 47, 75, 118, 187, 294, 465, 736, 1160, 1837, 2900, 4586, 7253, 11465, 18132, 28669, 45344, 71715, 113416, 179394, 283737, 448838, 709971, 1123055
|
| 数学
|
z=12;g[1]={1};f1[x_]:=x+1;f2[x]:=3/x;h[1]=g[1];
b[n_]:=b[n]=删除重复项[Union[f1[g[n-1]],f2[g[n-1]]];
h[n_]:=h[n]=并集[h[n-1],g[n-1]];
g[n]:=g[n]=补码[b[n],交集[b[n],h[n]]]
u=表格[反向[g[n]],{n,1,z}];v=压扁[u];
分母[v](*A243851型*)
分子[v](*A243852型*)
表[长度[g[n]],{n,1,z}](*A243853型*)
|