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,1

Comments

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

Links

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

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 *)

Prog

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

Crossrefs

Cf. A000040.

Cf. A007504, A014148, A178138, A254784.

Cf. A254858.

Sequence in context: A083383 A221574 A082289 * A213387 A215184 A136429

Adjacent sequences: A014147 A014148 A014149 * A014151 A014152 A014153

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Offset fixed by Reinhard Zumkeller, Feb 08 2015

Status

approved