OFFSET
1,1
COMMENTS
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.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Accumulate[Total/@IntegerDigits[Prime[Range[1000]], 2]], PrimeQ]
PROG
(PARI) t=0; forprime(p=2, 1e4, if(isprime(t+=hammingweight(p)), print1(t", "))) \\ Charles R Greathouse IV, Mar 25 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Mar 25 2013
STATUS
approved