%I#8 2014年8月13日18:21:14
%S 1,2,2,3,5,8,12,19,30,47,751181872944657361160183729004586,
%电话:72531146518132286694534717151134161793942837448838,
%电话:7099711123055
%N位于A243851的数组第N行中的数字数。
%C法令(第1行)=(1)和(第2行)=。对于n>=4,第n行由以下降序数字组成:第n-1行中每个x的x+1和第n-1行中每个x中的3/x,重复出现时将被拒绝。则a(n)=(第n行中的数字个数);这个序列似乎不是线性重复的。
%e理性数组的前6行:
%e 1/1
%e 3/1。。。2/1
%e 4/1。。。3/2
%e 5/1。。。5/2 ... 3/4
%e 6/1。。。7/2 ... 7/4 ... 6/5 ... 3/5
%e 7/1。。。9/2 ... 11/4 .. 11/5 .. 12/7 .. 8/5 .. 6/7 .. 1/2,因此A242453以1、2、2、3、5、8开头。
%t z=12;g[1]={1};f1[x_]:=x+1;f2[x_]:=3/x;h[1]=g[1];
%t b[n_]:=b[n]=删除重复项[Union[f1[g[n-1]],f2[g[n-1]]];
%t h[n_]:=h[n]=并集[h[n-1],g[n-1]];
%t g[n_]:=g[n]=补码[b[n],交集[b[n],h[n]]
%t u=表格[反向[g[n]],{n,1,z}];v=压扁[u];
%t分母[v](*A243851*)
%t分子[v](*A243852*)
%t表[长度[g[n]],{n,1,z}](*A243853*)
%Y参见A243851、A243852、A243850。
%K nonn,简单
%O 1,2号机组
%A_Clark Kimberling_,2014年6月12日