login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A095075 Primes in whose binary expansion the number of 1-bits is less than or equal to number of 0-bits. 6
2, 17, 37, 41, 67, 73, 97, 131, 137, 139, 149, 163, 193, 197, 257, 263, 269, 277, 281, 293, 337, 353, 389, 401, 449, 521, 523, 541, 547, 557, 563, 569, 577, 587, 593, 601, 613, 617, 641, 643, 647, 653, 659, 661, 673, 677, 709, 769, 773, 787 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Indranil Ghosh, Table of n, a(n) for n = 1..25000

A. Karttunen and J. Moyer, C-program for computing the initial terms of this sequence

EXAMPLE

From Indranil Ghosh, Feb 03 2017 (Start):

17 is in the sequence because 17_10 = 10001_2. '10001' has two 1's and three 0's.

37 is in the sequence because 37_10 = 100101_2. '100101' has three 1's and 3 0's. (Stop)

PROG

(PARI)B(x) = {nB = floor(log(x)/log(2)); z1 = 0; z0 = 0;

for(i = 0, nB, if(bittest(x, i), z1++; , z0++; ); );

if(z1 <= z0, return(1); , return(0); ); };

forprime(x = 2, 787, if(B(x), print1(x, ", "); ); );

\\ Washington Bomfim, Jan 11 2011

(Python)

from sympy import isprime

i=1

j=1

while j<=25000:

....if isprime(i)==True and bin(i)[2:].count("1")<=bin(i)[2:].count("0"):

........print str(j)+" "+str(i)

........j+=1 ....i+=1 # Indranil Ghosh, Feb 03 2017

CROSSREFS

Complement of A095070 in A000040. Cf. A095055.

Sequence in context: A018529 A041031 A041965 * A294560 A258977 A069042

Adjacent sequences:  A095072 A095073 A095074 * A095076 A095077 A095078

KEYWORD

nonn,easy,base

AUTHOR

Antti Karttunen, Jun 01 2004

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 19 07:02 EST 2017. Contains 294915 sequences.