Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #19 Feb 08 2015 17:42:57
%S 2,9,26,60,122,225,386,624,962,1429,2056,2880,3942,5285,6956,9008,
%T 11500,14493,18054,22254,27166,32869,39446,46986,55586,65347,76372,
%U 88768,102644,118113,135302,154342,175370
%N Apply partial sum operator thrice to primes.
%C Row 3 in A254858. - _Reinhard Zumkeller_, Feb 08 2015
%H Reinhard Zumkeller, <a href="/A014150/b014150.txt">Table of n, a(n) for n = 1..10000</a>
%t lst={};s1=0;s2=0;s3=0;Do[s1=s1+Prime[n];s2=s2+s1;s3=s3+s2;AppendTo[lst, s3], {n, 5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 15 2008 *)
%t With[{nn=3},Nest[Accumulate[#]&,Prime[Range[50]],nn]] (* _Harvey P. Dale_, Feb 07 2015 *)
%o (Haskell)
%o a014150 n = a014150_list !! (n-1)
%o a014150_list = (iterate (scanl1 (+)) a000040_list) !! 3
%o -- _Reinhard Zumkeller_, Feb 08 2015
%Y Cf. A000040.
%Y Cf. A007504, A014148, A178138, A254784.
%Y Cf. A254858.
%K nonn
%O 1,1
%A _N. J. A. Sloane_
%E Offset fixed by _Reinhard Zumkeller_, Feb 08 2015