A121807 Partial sums of A004676.

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

Author

Jonathan Vos Post, Sep 09 2006

Keywords

• base
• easy
• nonn
• less

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A004676, A067894.

Programs

Mathematica

Accumulate[FromDigits@IntegerDigits[#,2]&/@Prime@Range@30] (* Giorgos Kalogeropoulos, Sep 13 2021 *)

PARI

a(n) = sum(k=1, n, fromdigits(binary(prime(k)), 10)); \\ Michel Marcus, Sep 13 2021