%I#16 2018年9月25日11:55:18
%S 2,3,2,5,3,2,7,4,3,2,11,6,4,,2,13,7,5,4,2,19,10,7,5,4,3,12,23,12,8,
%电话:6,5,4,3,2,29,15,10,8,6,5,14,3,13,33,17,12,9,7,6,4,2,43,22,15,11,9,
%U 7,6,5,4,3,2,47,24,16,12,10,8,7,65,4,1,2
%N按行读取的三角形阵列T:T(N,k)是N阶Farey分数的数量,对于k=1..N,对于N>=1,这些分数<=1/k。
%C因此,T(n,k)也是n阶Farey分数中分数1/k的指数。-Michel Marcus,2014年6月27日
%e行:{2};{3,2}; {5,3,2}; ...; 例如,在第3行中,5个还原分数(0/1,1/3,1/2,2/3,1/1)<=1;3为<=1/2;2小于等于1/3。
%e三角形开始:
%e 2;
%e 3,2;
%e五、三、二;
%e第7、4、3、2条;
%e 11、6、4、3、2;
%e 13、7、5、4、3、2;
%e。。。
%t t[n_,k_]:=计数[FareySequence[n],f_/;f<=1/k];
%t表[t[n,k],{n,1,12},{k,1,n}]//Flatten(*Jean-François Alcover_,2018年9月25日*)
%o(PARI)行(nn)=我的(frow=法利(n));对于(k=1,n,print1(vecsearch(frow,1/k),“,”););\\_Michel Marcus,2014年6月27日
%Y第一列:T(n,1)=A005728(n+1)。
%Y参考A006842、A006843。
%K nonn,表
%O 1,1号机组
%百灵鸟金伯利_
|