0,1

lst={}; s1=0; s2=0; s3=0; Do[s1=s1+Prime[n]; s2=s2+s1; s3=s3+s2; AppendTo[lst, s3], {n, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 15 2008]

Cf. A000040.

Sequence in context: A085070 A083383 A082289 this_sequence A136429 A091469 A125670

Adjacent sequences: A014147 A014148 A014149 this_sequence A014151 A014152 A014153

nonn

N. J. A. Sloane (njas(AT)research.att.com).