检验过的
经核准的
提出
编辑
块[{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]]@位置索引@数组[g,10^4]](*迈克尔·德弗利格2021年10月18日*)
一个(A001359号(n) )=1,对于所有n>=1。
囊性纤维变性。A000203号,A001359号, A250469型,A280692型,A286385型.
囊性纤维变性。A001359号(给出了1的位置,或至少是其中的一个子集)。
<a href=“/index/Si#sieve”>筛子生成序列的索引条目</a>
(平价)A346473飞机(n)=A250469型(n) -西格玛(n);
签名,看,改变
Antti Karttunen,<a href=“/A346473飞机/b346473.txt“>n的表,n=1..10000时为a(n)</a>