%I#25 2013年10月23日15:03:36

%S 1,1,2,1,3,1,2,5,2,5,1,3,6,3,8,4,9,9,5,8,5,12,5,12,6,13,5,15,8，

%T 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 25,14,29,11,30,15,24,16,26,13,33,17,32,12,36,16,36

%N a（N）是不超过N的恶整数（A000069）的数量，分别为N的素数。

%C设b（n）是不超过n的坏整数（A001969）的个数，并分别素数为n。然后a（n）+b（n）=phi（n）（phi=A000010）。对于哪些数字a（n）<b（n）？此序列从28开始。对于n=1,2,3,15，我们有a（n）=phi（n）。这个等式还有什么其他的解决方案？当a（n）=phi（n）/2时，我们称n为平衡数。平衡数的序列从4、6、7、8、10、11、13、14、16、19、22……开始，。。。

%H Peter J.C.Moses，n的表，a（n）表示n=1..5000</a>

%F对于奇素数p，a（p）=（p+1或-1）/2。a（p）=（p+1）/2为3，5，17，23，29，…，的素数p，。。。，即邪恶素数（A027699），而a（p）=（p-1）/2为7，11，13，19，…的奇素数p，。。。，即可恶素数（A027697）。

%e对于n=30，我们有以下数分别为n的素数：1、7、11、13、17、19、23、29，其中只有5个数1、7，11、13和19是可恶的。因此，a（30）=5。

%t odiouses=选择[Range[rng=100]，OddQ[DigitCount[#，2][[1]]]&]；tmp=1；表[Count[Map[CoprimeQ[n，#]&，Take[odiouses，tmp=NestWhile[#+1&，tmp+1，odiouses[[#]]<n&&！（长度[odiouses]<=tmp+1）&]-1]]，真]，{n，rng}]

%Y参考A0000010、A000069、A001969、A027697、A027699。

%K nonn公司

%氧1,3

%A_Vladimir Shevelev_，2013年10月10日