A014150 Apply partial sum operator thrice to primes.

2, 9, 26, 60, 122, 225, 386, 624, 962, 1429, 2056, 2880, 3942, 5285, 6956, 9008, 11500, 14493, 18054, 22254, 27166, 32869, 39446, 46986, 55586, 65347, 76372, 88768, 102644, 118113, 135302, 154342, 175370

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Comments

Row 3 in A254858. - Reinhard Zumkeller, Feb 08 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040.

Cf. A007504, A014148, A178138, A254784.

Cf. A254858.

Programs

Haskell

a014150 n = a014150_list !! (n-1)
a014150_list = (iterate (scanl1 (+)) a000040_list) !! 3
-- Reinhard Zumkeller, Feb 08 2015

Mathematica

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 *)
With[{nn=3},Nest[Accumulate[#]&,Prime[Range[50]],nn]] (* Harvey P. Dale, Feb 07 2015 *)

Extensions

Offset fixed by Reinhard Zumkeller, Feb 08 2015