%I#7 2013年1月15日16:07:14
%S 1,3,4,6,7,11,14,18,20,26,29,36,39,44,49,59,63,74,79,87,93107112,
%电话124131142150167172191201214223237244266279292302327,
%电话:335361374388401430440466478498513545556581596619
%N有理数p/q的个数,使得0<p<q<=N和p/q<=(分母最大的连续斐波那契数的商)。
%C计算n阶的某些连续Farey分数;与A207525不同,后者计算p/q<=(分母<=n的连续斐波那契数的最大商)。
%e a(4)=4计数1/4、1/3、1/2、2/3。
%e a(5)=6计数1/5、1/4、1/3、2/5、1/2、3/5。
%t r[n_]:=并集[Flatten[表[p/q,{q,2,n-1},
%t{p,1,q-1}]];
%t f[n_]:=斐波那契[n];gr=黄金比率;
%t g[n_]:=楼层[Log[gr,1+n*Sqrt[5]];
%t s=桌子[圆形[f[g[n-1]]/gr]/f[g[n-1]],{n,3,82}];
%t c[n_,x_]:=长度[Select[r[n+2],#<=x&]]
%t表[c[n,s[[n]]],{n,1,80}]
%Y参考A207524。
%K nonn公司
%氧2,2
%A_Clark Kimberling_,2012年2月18日
|