login
A121807
Partial sums of A004676.
1
10, 21, 122, 233, 1244, 2345, 12346, 22357, 32468, 43569, 54680, 154781, 255782, 356793, 457904, 568005, 679016, 790117, 1790128, 2790239, 3791240, 4792351, 5802362, 6813363, 7913364, 9013465, 10113576, 11214587, 12315688, 13425689
OFFSET
1,1
LINKS
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