%I#14 2019年2月16日03:13:04
%S 4511722527329734535740546551356162169370576577825,
%电话:8378618859451005111125118519712811305139514251521,
%电话:15451593161717011725184518811905195319652025203721212277
%N对N进行编号,使τ(N)>τ(N+1)、φ。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%H Vaclav Kotesovec,<a href=“/A074770/A074770.jpg”>n=1..36000的a(n)/n图</a>
%F似乎a(n)对c*n是渐近的,52<c<54。
%eτ(117)=6>4=τ(118),φ(117;因此117在序列中。
%p N:=200:#获得前N个项
%p前缀:=[数字理论:-tau,数字理论:-phi,数字原理:-sigma](1):
%p计数:=0:
%当计数<n do时,n从2开始为p
%p tps:=[数量理论:-tau,数量理论:-phi,数量原理:-sigma](n);
%p如果min(prev-tps)>0,则计数:=计数+1;A[计数]:=n-1 fi;
%p优先级:=tps;
%日期:
%p序列(A[i],i=1..N);#_罗伯特·伊斯雷尔,2018年1月9日
%t选择[Range[1,3000],DivisorSigma[0,#]>Divisor西格玛[0,#1]&&EulerPhi[#]>EulerPhi[#+1]&&DivisorSigma[1,#]>Divisor西格玛[1,#1]&](*_Vaclav Kotesovec_,2019年2月16日*)
%K nonn公司
%O 1,1号机组
%2002年9月7日,A _贝尼特·克洛伊特
|