A095284 - OEIS

A095284

Primes in whose binary expansion the number of 1 bits is > 5 + number of 0 bits.

127, 191, 223, 239, 251, 383, 479, 503, 509, 751, 863, 887, 983, 991, 1013, 1019, 1021, 1279, 1471, 1531, 1663, 1759, 1783, 1787, 1789, 1951, 1979, 1999, 2011, 2027, 2029, 2039, 2543, 2551, 2557, 2687, 2879, 2927, 2939, 2999, 3023, 3037

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..42.

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

PROG

(PARI) B(x) = { nB = floor(log(x)/log(2)); b1 = 0; b0 = 0;

for(i = 0, nB, if(bittest(x, i), b1++; , b0++; ); );

if(b1 > (5+b0), return(1); , return(0); ); };

forprime(x = 31, 3037, if(B(x), print1(x, ", "); ); );

\\ Washington Bomfim, Jan 12 2011

CROSSREFS

Complement of A095285 in A000040. Subset of A095322. Subset: A095312. Cf. also A095286, A095294.

Sequence in context: A065092 A141916 A023689 * A127579 A107380 A282793

Adjacent sequences: A095281 A095282 A095283 * A095285 A095286 A095287

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Jun 04 2004

STATUS

approved