#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a230070 正在展示1-1的1个一个1个的1个;%I a230070;%S a230070 1,1,1,2,1,1,3,1,1,1,1,3,1,1,3,3,3,2,2,2,2,2,5,2,5,5,5,5,5,5,12,12,5,6,13,5,15,5,5,5,15,15,15,15,15,8,8,8,8,8,8,8,8,18,18,9,17,8,8,8,8,8,18,9,17,8,8,20,22,10,19,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)是不超过N且分别素数到N的讨厌整数(a00069);%C A230070让b(N)是不超过N且分别素数到N的邪恶整数(A001969),然后a(N)+b(N)=phi(N)(phi=A000010)。哪个数a(n)<b(n)?这个序列从28开始。对于n=1,2,3,15,我们有a(n)=φ(n)。这个方程还有哪些解?当a(n)=phi(n)/2时,我们称n为平衡数。平衡数的序列从4,6,7,8,10,11,13,14,16,19,22开始,…%H A230070 Peter J.C.Moses,n=1..5000的n,a(n)表%对于奇素数p,a(p)=(p+1或-1)/2。a(p)=(p+1)/2为3、5、17、23、29的素数p,即恶素数(A027699),而a(p)=(p-1)/2的奇素数p为7,11,13,19,…,即恶素数(A027697);%e A230070当n=30时,我们分别有以下数对n的素数:1,7,11,13,17,19,23,29,其中只有5个数字1,7,11,13和19是讨厌的。因此,a(30)=5. %t A230070 odouses=Select[Range[rng=100],OddQ[DigitCount[#,2][[1]]&];tmp=1;Table[Count[Map[CoprimeQ[n,#]&,取[odiouses,tmp=nestwile[#+1&,tmp+1,odiouses[[#]]-->