%I#32 2019年2月16日07:16:29

%S 1,0，-1,0，-1,1.0，-1,0,1,2,1,2,1,2,2,3,3,4,3,,4,5,5,6,7,8,9,10,9,10-9，

%电话：10,11,12,13,14,13,14，15,16,15,16,16,17,18,17,19,20,21,22,21,22，

%U 23,24,25,26,25,25,26、25,27、28、29,30,29、30,31、32,31、32、31、33、34、35、36、35、35、37、37、38、38、39、40、41、42、43、44、45

%N a（N）=（非素数<=N）-（素数<=N）。

%F a（n）=1+A072731（n）。

%F a（n）=n-2*pi（n）=n-2*A000720（n）.-_韦斯利·伊万·赫特，2013年6月16日

%当n>1时，F a（n）-a（n-1）=1-2*A010051（n）_韦斯利·伊万·赫特，2018年12月18日

%F a（n）=A062298（n）-A000720（n）.-_米歇尔·马库斯，2019年1月31日

%e a（7）=-1，因为有3个非素数<=7（1,4和6）和4个素数<=7（2,3,5和7）。

%p与（数字理论）：seq（n-2*pi（n），n=1..93）；#_Emeric Deutsch，2006年4月1日

%t qp=0；lst={}；做[If[PrimeQ[n]，AppendTo[lst，qp-=1]，AppedTo[ls，qp+=1]]，{n，6！}]；第1页（*_Vladimir Joseph Stephan Orlovsky，2010年3月15日*）

%t累计[-1+2*Boole/@Not/@PrimeQ@Range@100]（*_Federico Provvedi_，2013年10月6日*）

%o（PARI）

%o compsmprimes（n）={对于（x=1，n，y=复合（x）-pi（x）；打印1（y“，”））}

%o \\小于或等于n的复合数的数量

%o复合物（n）={my（c，x）；c=0；对于（x=1，n，if（！isprime（x），c++）；）；return（c）}

%o\\pi（x）素数计数函数

%oπ（n）={my（c，x）；c=0；forprime（x=1，n，c++）；return（c）}

%Y参考A000720、A010051、A062298、A072731。

%K符号，简单

%O 1,10号

%2004年8月23日，A Clino Hilliard