%I#29 2022年12月5日04:42:24

%S 254422482502526529542562842104221642204224622582402，

%电话：24262434244662458246224742498251825542558256625782582，

%电话：2594264226542846285428582921323254342402241264162422242426

%复合数和每个除数（1除外）都包含数字2。

%如果k在序列中，那么k的所有复合除数都在序列中_罗伯特·伊斯雷尔，2019年7月11日

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

%e 254具有除数1、2、127和254，除1外，所有除数都包含数字2。

%p filter：=proc（n）局部D；

%p如果isprime（n），则返回假fi；

%p和map（con2，numtheory:-除数（n）减去{1}）

%p端程序：

%p con2:=proc（n）选项记忆；成员（2，convert（n，base，10））结束进程：

%p选择（过滤器，[$4..10000]）；#_罗伯特·伊斯雷尔，2019年7月11日

%t fQ[n_，dgt_]：=并集[MemberQ[#，dgt]&/@IntegerDigits@Rest@Divisors@n][1]；选择[范围[24230]！PrimeQ[#]&&fQ[#，2]&]（*_Robert G.Wilson v_，2014年6月11日*）

%o（岩浆）[2..4300]|不是IsPrime（m）中的m:m和Intseq（d）中除数（m）|2中的#[d:d_Marius A.Burtea，2019年7月11日

%Y参见A062649、A062668、A062670、A0626.72、A062644、A06267、A06268、A062680、A243819。

%K基础，简单，无

%O 1,1号机组

%A _弗里德曼，2001年7月4日

%2019年7月11日，Robert Israel_更改了E偏移