来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a230070 Showing 1-1 of 1 %I A230070 %S A230070 1,1,2,1,3,1,3,2,5,2,5,3,6,3,8,4,9,4,9,5,8,5,12,5,12,6,13,5,15,5,15,8, %T A230070 14,8,12,8,18,9,17,8,20,8,22,10,19,11,23,11,18,11,24,12,27,12,21,10, %U A230070 25,14,29,11,30,15,24,16,26,13,33,17,32,12,36,16,36 %N A230070 a(n) is the number of odious integers (A000069) not exceeding n and respectively prime to n. %C A230070 Let b(n) is the number of evil integers (A001969) not exceeding n and respectively prime to n. Then a(n) + b(n) = phi(n) (phi=A000010). 对于数字A(n)< b(n)?这个序列从28开始,…对于n=1,2,3,15,我们有一个(n)=φ(n)。这个方程还有什么其他的解决方法?当A(n)=φ(n)/2时,我们称n为平衡数。平衡数的序列从4、6、7、8、10、11、13、14、16、19、22、……n,a(n)n=1…5000的表奇数素数p,a(p)=(p+1或1)/2。素数p(a)(p)=(p+1)/ 2,即3, 5, 17,23, 29,…,即邪恶素数(a027 699),而奇数素数p,其中a(p)=(p-1)/2是7,11,13,19,…,即恶素数(A027 697)。因此,A(30)=5。%A23 00 70 OdioSes=选择[范围[RNG=100 ],ODQ] [数字计数[1,2 ] [[4] ] ];TMP = [MAP[Coprimeq[n,y] ],取[OdiSues,TMP= nSt[Y]+1,TMP+1,OdioSe[[Y] ]-->