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