login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Partial sums of A004676.
1

%I #15 Sep 13 2021 11:38:28

%S 10,21,122,233,1244,2345,12346,22357,32468,43569,54680,154781,255782,

%T 356793,457904,568005,679016,790117,1790128,2790239,3791240,4792351,

%U 5802362,6813363,7913364,9013465,10113576,11214587,12315688,13425689

%N Partial sums of A004676.

%H Seiichi Manyama, <a href="/A121807/b121807.txt">Table of n, a(n) for n = 1..10000</a>

%t Accumulate[FromDigits@IntegerDigits[#,2]&/@Prime@Range@30] (* _Giorgos Kalogeropoulos_, Sep 13 2021 *)

%o (PARI) a(n) = sum(k=1, n, fromdigits(binary(prime(k)), 10)); \\ _Michel Marcus_, Sep 13 2021

%Y Cf. A000040, A004676, A067894.

%K base,easy,nonn,less

%O 1,1

%A _Jonathan Vos Post_, Sep 09 2006