%I#14 2021年11月27日11:03:59
%S 1,2,5,4,5,8,7,8,15,14,11,16,13,14,37,16,17,24,19,28,35,22,23,32,49,
%第26、45、28、29、60、31、32、55、34、41、48、37、38、65、56、41、62、43、411、46、47页,
%U 64,55114,85,52,53,72,59,62,95,58,59120,61,62123,64,65,88,67,68115134,71,96,73,74293,76,83104,79
%欧拉φ与A324198的N Dirichlet卷积。
%H Antti Karttunen,n的表格,n=1..11550的a(n)</a>
%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>
%Fa(n)=Sum_{d|n}φ(n/d)*A324198(d)。
%F a(n)=和{k=1..n}A324198(gcd(n,k))。
%t s[n_]:=模[{k=n,m=1,p=2},而[k>0,m*=(p^Min[Mod[k,p],IntegerExponent[n,p]]);k=商[k,p];p=下一素数[p]];m] ;a[n_]:=除数和[n,s[#]*EulerPhi[n/#]&];阵列[a,100](*_Amiram Eldar_,2021年11月27日*)
%o(PARI)
%o A324198(n)={my(m=1,p=2,orgn=n);while(n,m*=(p^min(n%p,估值(orgn,p));n=n\p;p=下一素数(1+p))(m);};
%o A348027(n)=sumdiv(n,d,eulerphi(d)*A324198(n/d));
%Y参考A000010,A324198。
%Y另请参阅A346242、A347131、A347235和A347958。
%K nonn,基础
%O 1,2号机组
%2021年9月25日,安提·卡图内
|