login
Apply partial sum operator thrice to primes.
11

%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