OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MATHEMATICA
Accumulate[FromDigits@IntegerDigits[#, 2]&/@Prime@Range@30] (* Giorgos Kalogeropoulos, Sep 13 2021 *)
PROG
(PARI) a(n) = sum(k=1, n, fromdigits(binary(prime(k)), 10)); \\ Michel Marcus, Sep 13 2021
CROSSREFS
KEYWORD
base,easy,nonn,less
AUTHOR
Jonathan Vos Post, Sep 09 2006
STATUS
approved