OFFSET
1,1
LINKS
A. Karttunen and J. Moyer: C-program for computing the initial terms of this sequence
MATHEMATICA
btsQ[n_]:=Module[{idn2=IntegerDigits[n, 2]}, Count[idn2, 1]>4+Count[ idn2, 0]]; Select[Prime[Range[300]], btsQ] (* Harvey P. Dale, Nov 12 2011 *)
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 > (4+b0), return(1); , return(0); ); };
forprime(x = 2, 1823, if(B(x), print1(x, ", "); ); ); \\ Washington Bomfim, Jan 12 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Antti Karttunen, Jun 04 2004
STATUS
approved