%I#15 2021年11月2日10:29:12
%S 0,0,1,2,1,3,3,6,12,9,1,5,3,15,11,14,12,3,15,23,27,5,9,18,33,25,25,
%电话:1,15,5,30,37,45,29,14,3,51,39,27,1,27,3,45,37,63,5,17,64,54,53,55,5,
%U 39,19,45,65,81,1,9,5,87,51,62,35,51,3,75,79,63,18,5105,61,85,47,63,3,51,84117,25,25123,95
%N a(N)=A250469(N)-σ(N)。
%C第一个负项是a(120)=-3。
%H Antti Karttunen,<a href=“/A346473/b346473.txt”>n的表,a(n)表示n=1.-10000</a>
%H<a href=“/index/Si#sieve”>筛子生成序列的索引条目</a>
%H<a href=“/index/Si#SIGMAN”>与sigma(n)相关序列的索引条目</a>
%F a(n)=A250469(n)-A000203(n)。
%F a(n)=A286385(n)-A280692(n)。
%对于所有n>=1,F a(A001359(n))=1。
%t块[{g},g[n_]:=如果[n==1,0,PrimePi@FactorInteger[n] [1,1]]];函数[s,MapIndexed[Lookup[s,g[First@#2]+1][[#1]]-Boole[First@#2==1]-DivisorSigma[1,First@@#2]&,#]&@Map[Position[Lookup[s,g@#],#][[1,1]]&,Range@120]]@PositionIndex@Array[g,10^4](*Michael De Vlieger_,2021年10月18日*)
%o(PARI)A346473(n)=A250469(n)-西格玛(n);
%Y参见A000203、A001359、A250469、A280692、A286385。
%K符号,看
%O 1,4型
%A _Antti Karttunen,2021年7月28日