登录
最小整数k>1,使得sqrt(k)/log(k)超过n。

%I#21 2015年10月23日03:56:24

%S 2,228968112802109319045386170810010339129011579519032,

%电话:22620265703088833558340662461335200358277649627206579590,

%电话:8754495932104759114030123750133924144557155652167215179250191760

%N最小整数k>1,使得sqrt(k)/log(k)超过N。

%H Danny Rorabaugh,n的表,n的a(n)=1..10000</a>

%p A262058:=程序(n)

%p位数:=30;

%从2do到k的p

%p如果evalf(sqrt(k)>n*log(k)),则

%p返回k;

%p end if;

%p端do:

%p end程序:#_R.J.Mathar_,2015年10月22日

%tf[n_]:=f[n]=块[{k=f[n-1]},而[n>Sqrt[k]/Log[k],k++];k] ;f[1]=2;数组[f,50]

%o(PARI)a(n)={my(k=2);while(sqrt(k)/log(k)<=n,k++);k;}\\_Michel Marcus_,2015年9月10日

%o(鼠尾草)

%o定义A262058(n,d=50):

%o(低,高)=(1,2)

%o当N(sqrt(高),数字=d)<=N(N*log(高)),数字=d)时:

%o高*=2

%o低+1<高:

%o中部=天花板((低+高)/2)

%o如果N(sqrt(mid),数字=d)<=N(N*log(mid

%o低=中

%o其他:

%o高=中

%o回报高#_Danny Rorabaugh,2015年9月26日

%Y参考A088346、A262059、A262060。

%K nonn公司

%O 1,1号机组

%A _罗伯特·G·威尔逊,2015年9月9日