%I#19 2024年2月19日19:47:47
%S 2,3,3,4,4,5,5,6,6,,6,7,7,8,8,9,9,10,10,11,11,12,12,12,
%电话:13,13,13,14,14,14,14,15,15,15,16,16,16,16,17,17,17,18,18,
%U 18,19,19,19、20,20,20:20,20,21,21,212,21,22,23,23,23、23,24、24,24、24、25,25、25、26、26、27、27和27
%N最小的k,这样k!>2个。
%H Charles R Greathouse IV,n表,n=0..10000的a(n)</a>
%e a(7)=6,因为6!=720>2^7=128,但5!=120 < 128.
%t a[n_]:=块[{v=2^n,k=1},而[++k!<=v];k] ;阵列[a,93,0](*_Giovanni Resta_,2016年7月11日*)
%t模[{nn=30,f},f=表[{k,k!},{k,nn}];表[SelectFirst[f,#[[2]]>2^n&],{n,0100}]][[;,1]](*_Harvey P.Dale_,2024年2月19日*)
%o(Python)
%o定义a269225():
%o。。。k=1
%o。。。f=1
%o。。。p=1
%o。。。n=0
%o。。。为True时:
%o。。。。。。而f<=p:
%o。。。。。。。。。k+=1
%o。。。。。。。。。f*=k
%o。。。。。。产量k
%o。。。。。。p*=2
%o。。。。。。n+=1
%o(PARI)a(n)=本地prec(19);my(t=log(2)*n,x=ceil(解(k=1,n/2+5,lngamma(k+1)-t));而(x!<=2^n,x++);2016年7月12日x\\_Charles R Greathouse IV
%Y参考A003070、A067850、A258782。
%K nonn,简单
%0、1
%《完美基督》,2016年7月11日
|