|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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, ", "); ); );
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|