OFFSET
1,1
COMMENTS
A subsequence of A168162.
MATHEMATICA
sbdQ[n_]:=Total[Flatten[IntegerDigits[#, 2]&/@Prime[Range[PrimePi[ n]]]]] == n; Select[Prime[Range[20]], sbdQ] (* Harvey P. Dale, Feb 04 2015 *)
PROG
(PARI) s=0; forprime(p=1, 9999, if(p==s+=norml2(binary(p)), print1(p, ", ")))
CROSSREFS
KEYWORD
fini,full,nonn,base
AUTHOR
M. F. Hasler, Nov 22 2009
EXTENSIONS
Cross reference added by Harvey P. Dale, Mar 26 2013
STATUS
approved