%I#69 2022年11月4日19:53:30

%S 3,5,23,47,891011491571631791992293131367379383443，

%电话：457523587631643647653659709883947971009109110971163，

%电话：12591277128312891321148316011669169317091753187720692099

%N素数，其二进制表示也是素数的十进制表示。

%C一般重设基符号（Marc LeBrun）：p2=（2）[p]（10）。

%C同样：A036952中的底漆。-_M.F.Hasler，2012年12月11日

%C有关这些术语的二进制表示，请参见A089971_M.F.Hasler，2014年1月5日

%H Harry J.Smith和K.D.Bajpai，n表，n（n）表示n=1..10000

%H M.F.Hasler，<a href=“https://docs.google.com/document/d/10IM7fcAbB2tqRGuwfGvuEGUzD_IXbgXPDK0tfxN4M3o/pub“>基c展开式也是素数基b展开式的素数</a>

%H Carlos Rivera，<a href=“http://www.primepuzzles.net/puzzles/puzz_280.htm“>拼图280。3893257</a>，主要难题与问题联系。

%F等于A036952与A000040相交。-_M.F.Hasler_，2012年12月11日

%e1009{10}=11111110001{2}是素数，11111100010{10}也是素数。

%e 89在序列中，因为它是素数。89=1011001的二进制表示，这也是一个素数。

%p select（t->isprime（t）和isprim（convert（t，binary）），[seq（2*i+1，i=1..1000）]）；#_罗伯特·伊斯雷尔（Robert Israel），2014年7月8日

%t选择[Range[1900]，PrimeQ[#]&&PrimeQ[FromDigits[IntegerDigits[#，2]]&]

%t选择[Prime@Range@330，PrimeQ[FromDigits[IntegerDigits[#，2]]&]（*_Robert G.Wilson v_，2014年10月9日*）

%o（PARI）{（baseE（x，b）=局部（d，e=0，f=1）；while（x>0，d=x-b*（x\b）；x\=b；e+=d*f；f*=10）；e）；n=0；for（m=1，10^9，p=prime（m）；b=baseE（p，2）；if 2009年10月27日

%o（PARI）isok（p）=isprime（p）&&isprim（来自数字（二进制（p），10））；\\_米歇尔·马库斯，2022年3月4日

%o（Python）

%o来自sympy import isprime

%o def ok（n）：返回isprime（n）和isprime

%o打印（[k代表范围（2100）内的k，如果可以（k）]）#_Michael S.Branicky_，2022年3月4日

%Y参见A065721、A065722、A06572、A06574、A0651725、A0657206、A065747、A065361。

%Y参考A123266、A256621、A256622。

%K nonn，基础

%O 1,1号机组

%A _帕特里克·德·吉斯特，2001年11月15日

%E a（48）-a（50），来自K.D.Bajpai，2014年7月4日