登录
位于的数组第n行中的数字数A243851型.
6

%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日