|
| |
|
|
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
|
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, ", "); ); );
[W. Bomfim webonfim(AT)bol.com 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 A180539
Adjacent sequences: A095281 A095282 A095283 * A095285 A095286 A095287
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Antti Karttunen, Jun 04 2004
|
|
|
STATUS
|
approved
|
| |
|
|
