%I#8 2019年1月20日23:16:47

%编号：106201202203205206209301302303305403407501502505，

%电话：703706707802803807901905110110110151101101911021，

%电话：1102311029110311103511038110411042110421105111053

%N Cyclops半素数。

%C Cyclops数（A134808）也是半素数（A001358）。

%H Robert Israel，n的表，n的a（n）=1..10000</a>

%p g：=进程（x，n）

%p局部L，i；

%p L：=转换（x+9^（2*n），基数，9）；

%p加法（（L[i]+1）*10^（i-1），i=1..n）+加法（L[i]+1）x10^i，i=n+1..2*n）

%p端程序：

%p选择（t->numtheory:-bigomega（t）=2，[seq（seq（g（i，n），i=0..9^（2*n）-1），n=1..2）]）；#_罗伯特·伊斯雷尔，2019年1月20日

%t选择[Range@12000，And[OddQ@#2，#3[[Ciling[#2/2]]==0，Count[#3，0]==1，PrimeOmega@#1==2]&@@{#，IntegerLength@#，IntigerDigits@#}&]（*或*）

%t选择[Flatten@Table[a（10^（d+1））+b，{d，2}，{a，FromDigits/@Tuples[Range@9，{d}]}，}b，FromDigits/@Tuples[Range@9，{d}]}]，PrimeOmega@#==2&]（*Michael De Vlieger_，2019年1月20日*）

%Y参考A001358、A134808、A13409、A138131、A138148、A153806、A15380、A160711、A16071、A160777。

%K easy、nonn、base

%O 1,1号机组

%2009年6月12日，A_Omar E.Pol_