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
Offset: 1
Links
- A. Karttunen and J. Moyer: C-program for computing the initial terms of this sequence
Crossrefs
Programs
-
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
Comments