%I#5 2021年7月9日22:16:37
%S 1,2,6,2,30,6210,8,36,302310,63003020,30,8510510,369690,30,
%电话:2102310223092870,362403003021621069693230240200560490130,
%U 3223105105102520,3674207381348109699690300302403042502635272102520130827613316700302310240223092870614887825884491410,3632550
%N a(N)=A276085(A328571(A108951(N)))。
%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>
%H<a href=“/index/Pri#primorial_numbers”>为与基本数相关的序列索引条目</a>
%F a(n)=A276085(A346091(n))=A2 76085。
%F a(n)=A108951(n)-A346092(n)。
%o(PARI)
%o A002110(n)=产品(i=1,n,质数(i));
%o A108951(n)={my(f=因子(n));prod(i=1,#f~,A002110(素数(f[i,1]))^f[i、2])};
%o A276085(n)={my(f=因子(n));和(k=1,#f~,f[k,2]*A002110(素数(f[k、1])-1);};
%o A328571(n)={my(m=1,p=2);while(n,m*=(p^!!(n%p));n=n\p;p=下一个素数(1+p);(m);};
%o A346093(n)=A276085(A328571(A108951(n)));
%Y参考A002110、A108951、A276085、A328571、A346091、A346092。
%K nonn公司
%O 1,2号机组
%2021年7月9日,安蒂·卡图内
|