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,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

Cf. A000040, A004676, A067894.

Sequence in context: A072805 A119033 A171067 * A133163 A242831 A177131

Adjacent sequences: A121804 A121805 A121806 * A121808 A121809 A121810

Keyword

base,easy,nonn,less

Author

Jonathan Vos Post, Sep 09 2006

Status

approved