%I#33 2023年2月19日16:16:42

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

%电话：33135536737938340542544345345747152353353955583587，

%电话：595631643647653659671675689703709755781785815841855

%二进制展开为十进制素数的数字。

%C A100051（f（a（n）））=1，f（x）=如果x<2，则x其他10*f（楼层（x/2））+x模块2.-_Reinhard Zumkeller_，2010年3月31日

%A007088中的C底漆_N.J.A.Sloane，2023年2月17日

%H K.D.Bajpai，n的表，n的a（n）=1..10000</a>

%H<a href=“/index/Mo#MWP”>为与“头号通缉犯”视频相关的序列索引条目</a>

%e1=1_2不是素数。

%e2=10_2不合适，因为10=2*5不是素数。

%e3=11_2是可以的，因为11是素数。

%e4=100_2不正常，因为100=4*25不是素数。

%e 5＝101_2是可以的，因为101是素数。

%e 7=111_2不正常，因为111=3*37。

%e 11=1011_2不正常，因为1011=3*337。

%e 313=100111001_2是正常的，因为100111001是质数。

%p A007088:=程序（n）

%p-dgs:=转换（n，基数，2）；

%p加（op（i，dgs）*10^（i-1），i=1…nops（dgs；

%p端程序：

%p是A036952:=进程（n）

%p首字母（A007088（n））：

%p端程序：

%p A036952:=程序（n）

%如果n=1，则为p

%第3页；

%p其他

%p表示来自procname（n-1）+1 do的a

%p如果是A036952（a），则

%p返回a；

%p end if；

%p端do：

%p end if；

%p结束过程：

%p序列（A036952（n），n=1..80）；

%p#R.J.Mathar_，2010年3月12日

%p A036952:=proc（）如果是isprime（convert（n，binary）），则返回（n）；fi；结束：序列（A036952（），n=1..1000）；#_K.D.Bajpai，2014年7月4日

%t f[n_，k_]：=起始数字[IntegerDigits[n，k]]；lst={}；Do[If[PrimeQ[f[n，2]]，AppendTo[lst，n]]，{n，7！}]；第1页（*_Vladimir Joseph Stephan Orlovsky，2010年3月12日*）

%t NestList[NestWhile[#+2&，#，！PrimeQ[FromDigits[IntegerDigits[#2，2]]&，2]&，3，52]（*_Jan Mangaldan_，2020年7月2日*）

%o（PARI）是（n）=我的（v=二进制（n））；isprime（sum（i=1，#v，v[i]*10^（#v-i））\\_Charles R Greathouse IV_，2013年6月28日

%Y参见A007088、A020449、A036953-A036964。

%A156059和A065720的Y接头。

%K nonn，基础

%O 1,1号机组

%A _帕特里克·德·吉斯特，1999年1月4日

%E条目由R.J.Mathar_和N.J.A.Sloane修订，2010年3月12日