login
Partial sums of A034953(n).
2

%I #7 Dec 01 2015 17:17:47

%S 3,9,24,52,118,209,362,552,828,1263,1759,2462,3323,4269,5397,6828,

%T 8598,10489,12767,15323,18024,21184,24670,28675,33428,38579,43935,

%U 49713,55708,62149,70277,78923,88376,98106,109281,120757,133160,146526,160554

%N Partial sums of A034953(n).

%e a(3)=T(2)+T(3)+T(5)=3+6+15=24

%t Accumulate[(#(#+1))/2&/@Prime[Range[50]]] (* _Harvey P. Dale_, Dec 01 2015 *)

%o (PARI) s=0; forprime(p=2,300,s+=t(p); print1(s","))

%Y Cf. A034953.

%K nonn

%O 1,1

%A _Jon Perry_, Jul 21 2003

%E Corrected by _T. D. Noe_, Oct 25 2006