This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A095317 #14 Dec 10 2017 13:16:34 %S A095317 131,137,193,257,521,523,547,577,593,641,643,673,769,773,1031,1033, %T A095317 1049,1061,1091,1093,1097,1153,1217,1283,1289,1297,1409,1553,1601, %U A095317 2053,2063,2069,2081,2083,2087,2089,2099,2113,2129,2131,2137,2153 %N A095317 Primes in whose binary expansion the number of 1 bits is <= number of 0 bits minus 2. %H A095317 Harvey P. Dale, <a href="/A095317/b095317.txt">Table of n, a(n) for n = 1..1000</a> %H A095317 A. Karttunen and J. Moyer: <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a> %t A095317 Select[Prime[Range[400]],DigitCount[#,2,1]<=DigitCount[#,2,0]-2&] (* _Harvey P. Dale_, Dec 10 2017 *) %o A095317 (PARI)forprime(p=2,2200,v=binary(p);s=0;for(k=1,#v,s+=if(v[k]==1,+1,-1));if(s<=-2,print1(p,", "))) %o A095317 \\ _Washington Bomfim_, Jan 13 2011 %Y A095317 Complement of A095316 in A000040. Subset: A095321. Subset of A095071. Cf. also A095327. %K A095317 nonn,base,easy %O A095317 1,1 %A A095317 _Antti Karttunen_, Jun 04 2004