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 A217792 #16 May 13 2013 01:54:22 %S A217792 3,5,11,19,23,47,61,71,101,127,131,179,211,223,293,347,383,397,401, %T A217792 419,433,491,547,563,577,587,641,647,683,757,859,929,947,1019,1093, %U A217792 1123,1181,1187,1303,1319,1327,1381,1409,1543,1831,1847,1877,1997,2003,2113 %N A217792 Primes which are equal to the sum of the binary digits of consecutive primes starting with 2. %C A217792 This is similar to A168161 except for eliminating the requirement that the primes whose binary digits are summed be less than or equal to the resulting (sum-of-binary-digits) prime. %H A217792 Charles R Greathouse IV, <a href="/A217792/b217792.txt">Table of n, a(n) for n = 1..10000</a> %t A217792 Select[Accumulate[Total/@IntegerDigits[Prime[Range[1000]],2]],PrimeQ] %o A217792 (PARI) t=0;forprime(p=2,1e4,if(isprime(t+=hammingweight(p)),print1(t", "))) \\ _Charles R Greathouse IV_, Mar 25 2013 %Y A217792 Cf. A168161. %K A217792 nonn,base %O A217792 1,1 %A A217792 _Harvey P. Dale_, Mar 25 2013