%I#21 2018年11月29日14:59:55

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

%电话：23972937311317359375997771977337739729397313733793759397，

%U 73313型

%N以10为底，只有素数适当的前缀和后缀的复合数。

%数字m的适当前缀（或后缀）既不是无效的，也不是与m相同的。

%C替代定义：将复合数a（n）的十进制展开式以任何方式切成两个非空部分，每个部分代表一个质数。

%C该序列是A254751的子集。每个成员a（n）的每个适当前缀是A024770的成员，每个适当后缀是A024785的成员。由于后者是有限序列，a（n）也是有限序列。它有34个成员，其中最大的是组合编号73313。

%C如果将定义更改为“素数，以10为基数，其所有适当的前缀和后缀都表示素数”，则结果将是序列A020994。

%e6不是一个成员，因为它的膨胀不能一分为二。

%e复合73313是一个成员，因为（73313、73、313、733、13、7331、3）都是质数。

%t apQ[n_]：=模块[{idn=IntegerDigits[n]，c1，c2}，c1=FromDigits/@表[Take[idn，k]，{k，Length[idn]-1}]；c2=FromDigits/@Table[Take[idn，k]，{k，-（长度[idn]-1），-1}]；AllTrue[Join[c1，c2]，PrimeQ]]；选择[Range[1080000]，CompositeQ[#]&&apQ[#]&]（*程序使用Mathematica版本10中的AllTrue函数*）（*Harvey P.Dale_，2018年11月29日*）

%o（PARI）是复合（n）=（n>2）&&（！i素数（n））；

%o切片IntoPrimes（n，b=10）={my（k=b）；如果（n<b，返回（0）；）

%o isCompositeSlicingIntoPrimes（n，b=10）=isComposite（n）&&slicesIntoPrimers（n，b）；

%Y参见A020994、A024770、A024785、A254750、A254751、A25475%、A25475。

%K nonn、base、fini、full

%O 1,1号机组

%A _Stanislav Sykora，2015年2月15日