%I#5 2014年6月19日11:18:17
%S 1,1,1,1,3,1,1,2,3,1,5,2,3,1,1,2,3,5,2,3,1,1,2,3,5,2,3,1,3,7,5,3,5,2,3,3,
%温度1,3,4,5,5,4,7,7,5,3,5,2,3,1,5,7,5,5,13,7,13,9,5,4,7,7,1,5,1,3,1,
%U 1,1,3,5,4,6,6,4,9,9,7,8,5,13,7,13,9,5
%N按注释中的顺序排列的正有理数分母的不规则三角形数组。
%C法令(第1行)=(1)。对于n>=2,第n行由按递增顺序生成的数字组成,如下所示:第n-1行中每个x的x+1和第n-1列中每个非零x的-2/x,其中重复出现时将被删除。第n行中的数字为A243927(n)。推测:每个有理数在数组中只出现一次。
%H Clark Kimberling,n的表,n=1..2500的a(n)</a>
%e理性数组的前7行:
%e 1/1
%e-2/1。。。2/1
%e-1/1。。。3/1
%e-2/3。。。0/1 ... 4/1
%e-1/2。。。1/3。。。5/1
%e-6/1-2/5 .. 1/2 ... 4/3 ... 6/1
%e-5/1-4/1 .. -3/2 .. -1/3 .. 3/5 .. 3/2 .. 7/3 .. 7/1
%e分母,按行:1,1,1,1,3,1,1,2,3,1,5,2,3,1,1,1,2,3,3,1。
%tz=13;g[1]={1};f1[x_]:=x+1;f2[x_]:=-2/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}]
%t v=删除[展平[u],12]
%t分母[v](*A243925*)
%t分子[v](*A243926*)
%Y参见A243926、A243927、A242359、A243712和A243928。
%K nonn,easy,tabf,frac公司
%O 1,6型
%A_Clark Kimberling_,2014年6月15日
|