%I#35 2023年7月25日04:04:03

%S 3,5,7,11,13,19,23,29,31,43,47,53,59,61,71,79,83,89101103107109，

%电话：113127151157167173179181191199211223227229233239241，

%电话：251271283307311313173131347349359367373379383

%N个一位主导素数，即二进制展开包含1个以上0个的素数。

%H Indranil Ghosh，n=1..20000的n，a（n）表</a>

%H Antti Karttunen和John Moyer，计算该序列初始项的c程序。

%H数学溢出，<a href=“https://mathoverflow.net/questions/97288/primes-with-more-ones-than-zeroes-in-their-binary-expansion网站“>在二进制展开中包含1多于0的素数</a>，2012。

%e23在序列中，因为23是素数，23_10=1011_210111'有四个1和一个0_Indranil Ghosh，2017年1月31日

%t选择[Prime[Range[70]]，Plus@@IntegerDigits[#，2]>Length[IntegerDigits[#,2]/2&]（*_Alonso del Arte_2011年1月11日*）

%t选择[Prime[Range[100]]，Differences[DigitCount[#，2]][[1]<0&]（*_Amiram Eldar_，2023年7月25日*）

%o（PARI）B（x）={nB=楼层（log（x）/log（2））；b1=0；b0=0；

%o表示（i=0，nB，如果（位测试（x，i），b1++；，b0++；）；）；

%o如果（b1>b0，则返回（1）；，返回（0）；）；}；

%o表示质数（x=3383，如果是（B（x），打印1（x，“，”）；）；\\_华盛顿·邦菲姆，2011年1月11日

%o（PARI）具有（n）=汉明威（n）>#二进制（n）/2

%o select（has，primes（500））\\_Charles R Greathouse IV_，2013年5月2日

%o（Python）

%o#生成b文件的程序

%o来自sympy import isprime

%o i=1

%o j=1

%o当j<=200时：

%o如果isprime（i）和bin（i）[2:].count（“1”）>bin（i）[2:]。count（（“0”）：

%o打印（str（j）+“”+str（i））

%o j+=1

%o i+=1#安德拉尼尔·戈什，2017年1月31日

%A000040和A072600的Y交叉口。

%A000040中A095075的Y补码。

%Y子序列：A095073。

%Y参考A095020。

%K nonn，easy，基本

%O 1，1

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