OFFSET
1,1
COMMENTS
Subset of A243615.
LINKS
Andreas Boe, Table of n, a(n) for n = 1..10000
EXAMPLE
23 -> 2+3=5, 23=10111 -> Five bits.
MATHEMATICA
Select[Prime[Range[800]], Total[IntegerDigits[#]]==IntegerLength[#, 2]&] (* Harvey P. Dale, Nov 05 2019 *)
PROG
(PARI) isok(n) = isprime(n) && (sumdigits(n) == #binary(n)); \\ Michel Marcus, Jun 08 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Andreas Boe, Jun 07 2014
STATUS
approved