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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A095317 Primes in whose binary expansion the number of 1 bits is <= number of 0 bits minus 2. 4
131, 137, 193, 257, 521, 523, 547, 577, 593, 641, 643, 673, 769, 773, 1031, 1033, 1049, 1061, 1091, 1093, 1097, 1153, 1217, 1283, 1289, 1297, 1409, 1553, 1601, 2053, 2063, 2069, 2081, 2083, 2087, 2089, 2099, 2113, 2129, 2131, 2137, 2153 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

MATHEMATICA

Select[Prime[Range[400]], DigitCount[#, 2, 1]<=DigitCount[#, 2, 0]-2&] (* Harvey P. Dale, Dec 10 2017 *)

PROG

(PARI)forprime(p=2, 2200, v=binary(p); s=0; for(k=1, #v, s+=if(v[k]==1, +1, -1)); if(s<=-2, print1(p, ", ")))

\\ Washington Bomfim, Jan 13 2011

CROSSREFS

Complement of A095316 in A000040. Subset: A095321. Subset of A095071. Cf. also A095327.

Sequence in context: A145096 A210498 A050671 * A084549 A116519 A139646

Adjacent sequences:  A095314 A095315 A095316 * A095318 A095319 A095320

KEYWORD

nonn,base,easy

AUTHOR

Antti Karttunen, Jun 04 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 11:10 EDT 2019. Contains 321329 sequences. (Running on oeis4.)