A085739 Partial sums of A034953(n).

3, 9, 24, 52, 118, 209, 362, 552, 828, 1263, 1759, 2462, 3323, 4269, 5397, 6828, 8598, 10489, 12767, 15323, 18024, 21184, 24670, 28675, 33428, 38579, 43935, 49713, 55708, 62149, 70277, 78923, 88376, 98106, 109281, 120757, 133160, 146526, 160554

Offset: 1

Author

Jon Perry, Jul 21 2003

Keywords

• nonn

Examples

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

Crossrefs

Cf. A034953.

Programs

Mathematica

Accumulate[(#(#+1))/2&/@Prime[Range[50]]] (* Harvey P. Dale, Dec 01 2015 *)

PARI

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

Extensions

Corrected by T. D. Noe, Oct 25 2006