%I#20 2020年5月31日08:54:51

%编号：13,17103107109113716717317919730731741941967617，

%电话：709719101310191039104910631093109110311091111231129，

%电话：115312231229127712831303130713671373140914331439148714991523

%N在映射1<->0下成为另一个素数的素数（作用于数字：A222210），参见A171013。

%H Zak Seidov，n的表格，n=1..20000的a（n）</a>

%e 13=>3，17=>7，107=>17，113=>3。

%t Reap[Do[p=素数[n]；id=整数位数[p]；id2=id/。{1->0,0->1};如果[PrimeQ[fd=FromDigits[id2]和&fd！=p、 母猪[p]]，{n，2000}]][[2,1]]；

%t fQ[n_]：=块[{id=整数位数@n}，（MemberQ[id，0]| | MemberQ[id，1]）&&PrimeQ[FromDigits[id/.｛0->1，1->0｝]]；选择[Prime@Range@250，fQ]（*_Robert G.Wilson v_，2010年9月6日*）

%o（PARI）{my（q）；对于素数（p=1599，p！=（q=A222210（p））&&isprime（q）&&isoprime（p）&&print1（p，“，”））}\\_M.F.Hasler_，2013年2月13日

%Y参考A171013、A171057、A175789。

%K基，nonn

%O 1，1

%A _Zak Seidov，2010年9月6日