%I#11 2019年10月18日11:28:59
%第1,3,171301517200133469026634497154067794页
%N A048103的项数在A002110(N-1)范围内。。A002110(n)-1。
%C从A002110(n-1)到A002110。
%C a(n)是n在A328404中出现的总次数。
%对于所有n>=1,F a(n)<=A061720(n-1)。
%t带[{s=FoldList[Times,1,Prime@Range@7]},数组[Boole[#==2]+计数[Range[s[[#-1]],s[[#]]-1],_?(Times@@Boole@Map[First@#>Last@#&,FactorInteger@#]>0&)]&,Length@s-1,2]](*_Michael De Vlieger_,2019年10月17日*)
%o(PARI)
%o A0002110(n)=产品(i=1,n,素数(i));
%o是A048103(n)={my(f=因子(n));对于(k=1,#f~,如果(f[k,2]>=f[k、1],返回(0));(1);};
%o A328402(n)=总和(k=A002110(n-1),A002110;
%Y参见A002110、A048103、A061720、A129251、A276086、A328404。
%K nonn,更多
%O 1,2号机组
%A _Antti Karttunen,2019年10月17日
|