login
A095284
Primes in whose binary expansion the number of 1 bits is > 5 + number of 0 bits.
4
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
OFFSET
1,1
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
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jun 04 2004
STATUS
approved