%I#16 2022年9月8日08:45:03

%S 22,25,27,32,33,35,52,55,57,72,75,772222523223725253255，

%电话：27227327532232323253273333352355357372375377522，

%电话：52552753253355375525355555572573572722723725732735

%N包含所有素数的复合数。

%H T.D.Noe，n的表格，n=1..1000的a（n）</a>

%e a（5）=35是由素数数字3和5合成的。

%e22是非素数，有素数，是2的两倍；

%e 573是非素数，有素数3、5和7。

%p stev_sez:=进程（n）局部i，tren，st，ans，anstren；ans:=[]：anstren:=[[]：tren:=n：对于i while（tren>0）do st:=round（10*frac（tren/10））：ans:=[操作（ans），st]：tren：=trunc（tren/10）：结束do；对于i，从nops（ans）到1 by-1 do anstren:=[操作（anstren），操作（i，ans）]；od；返回（anstren）；结束时间：

%p ts_stnepf：=进程（n）局部i，stpf，ans；ans:=stev_sez（n）：stpf:=0：对于i从1到nops（ans）do if（isprime（op（i，ans））='false'），则stpf:=stpf+1；#非素数位数；返回（stpf）结束：

%p ts_nepr_neprn0：=进程（n）局部i，stpf，ans，ans1，tren；ans:=[]：stpf:=0:tren:=1：对于i从1到n的do，如果（i素数（i）=“false”且ts_stnepf（i）=0），则ans:=[操作（ans），i]：tren:=tren+1；光纤；返回（ans）结束：ts_nepr_neprn0（4000）；#_Jani Melik，2004年4月11日

%t使用[{comps=Complement[Range[1000]，Prime[Range[PrimePi[1000]]]}，选择[comps，And@@PrimeQ[IntegerDigits[#]]&]]（*_Harvey P.Dale_，2011年12月21日*）

%t表[Select[FromDigits/@Tuples[{2,3,5,7}，n]，CompositeQ]，{n，2,4}]//展平（*_哈维P.Dale_，2019年10月5日*）

%o（Magma）[n:n在[22..736]|不是IsPrime（n）和Set（Intseq（n））子集[2,3,5,7]]；//_Bruno Berselli，2011年12月21日

%Y参考A061372。

%K nonn，基础

%O 1,1号机组

%A _Amarnath Murthy，2001年5月2日

%E由Larry Reeves（larryr（AT）acm.org）更正和扩展，2001年5月8日