%I#7 2018年3月24日21:56:40
%S 5,9,14,19,23,28,33,37,42,47,51,56,61,65,70,75,79,84,89,93,98103107,
%电话112117121126131135140145149154163168172177182186,
%电话:1911962002052102142192242232332324224725225261
%N编号k,使A247971(k+1)=A24797l(k)。
%H Clark Kimberling,n的表,n=1..200的a(n)</a>
%t$RecursionLimit=无限;z=400;v[1]=0;v[2]=1;
%tv[n]:=v[n]=v[n-1]/(n-2)+v[n-2];
%t N[表[2 N/v[N]^2-Pi,{N,2,z/4}]]
%t表格形式[表格[{n,n[4 n/(v[2n]^2)-Pi],n[1/n]},{n,1,10}]]
%t f[n]:=f[n]=选择[范围[z],4#/(v[2#]^2)-Pi<1/n&,1];
%t u=压扁[表[f[n],{n,1,z}]](*A247971*)
%t d=差异[u]
%t v=压扁[位置[d,0]](*A247972*)
%Y参见A247971、A247973和A247974。
%K nonn,简单
%O 1,1号机组
%A_Clark Kimberling_,2014年9月28日
|