%I#4 2014年9月27日19:02:56
%S 2,4,7,9,12,15,17,20,22,25,27,30,32,35,37,40,42,45,47,50,52,55,57,60,
%电话:62,64,67,69,72,74,77,79,81,84,86,89,91,93,96,98101103105108110,
%电话:113115117120122125127129132134137139141144146
%N对k进行编号,使A247911(k+1)=A24791(k)。
%C补充A247913。
%H Clark Kimberling,n的表,n=1..500的a(n)</a>
%e A247911(n+1)-A247711(n)=(1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,1,0,…),a(n)是第n个0的位置。
%t$RecursionLimit=1000$MaxExtraPrecision=1000;
%tz=300;u[1]=0;u[2]=1;u[n]:=u[n]=u[n-1]+u[n-2]/(n-2);
%t f[n_]:=f[n]=选择[范围[z],(2#+1)/u[2#+1]-E<n ^-n&,1];
%t u=压扁[表[f[n],{n,1,z}]](*A247911*)
%t w=差异[u]
%t压扁[位置[w,0]](*A247912*)
%t压扁[位置[w,1]](*A247913*)
%Y参见A247911、A247913、A247908和A247914。
%K nonn,简单
%O 1,1号机组
%2014年9月27日,金伯利百灵
|