%I#15 2023年12月27日11:58:12

%S 19,43,53,79103107109367379431439443463487491499751863，

%电话887983101312791471153116631759178317871789195119791999，

%电话：20112072029306735813823402751196079691170397103

%N素数的二进制展开中有两个0位。

%H Alois P.Heinz，n的表格，n=1..10000的a（n）</a>

%H A.Karttunen和J.Moyer，计算该序列初始项的c程序</a>

%t选择[Prime[Range[1000]]，DigitCount[#，2，0]==2&]

%o（PARI）

%o{表示质数（p=28000，

%o v=二进制（p）；s=0；

%o表示（k=1，#v，s+=if（v[k]==0，+1,0））；

%o如果（s==2，打印1（p，“，”））

%o）}

%o（Python）

%o来自症状输入isprime

%o从itertools导入组合、计数、islice

%o def agen（）：#术语生成器

%计数（2）中的d为o：

%o b=（1<<（d+2））-1

%o对于i，j的组合（范围（d），2）：

%o如果是素数（t:=b-（1<<（d-i））-（1<>（d-j））：

%o产量t

%o打印（列表（islice（agen），43））#_Michael S.Branicky_，2023年12月27日

%Y参考A095059。

%K nonn，基础，简单

%O 1，1

%2004年6月1日，安蒂·卡图宁