login
Apply partial sum operator 5 times to primes.
7

%I #11 Feb 08 2015 17:43:36

%S 2,13,50,147,366,810,1640,3094,5510,9355,15256,24037,36760,54768,

%T 79732,113704,159176,219141,297160,397433,524872,685180,884934,

%U 1131674,1434000,1801673,2245718,2778531,3413988,4167558,5056430,6099644,7318228,8735337,10376402

%N Apply partial sum operator 5 times to primes.

%C Row 5 in A254858. - _Reinhard Zumkeller_, Feb 08 2015

%H Harvey P. Dale, <a href="/A254784/b254784.txt">Table of n, a(n) for n = 1..1000</a>

%t With[{nn=5},Nest[Accumulate[#]&,Prime[Range[50]],nn]]

%o (Haskell)

%o a254784 n = a254784_list !! (n-1)

%o a254784_list = (iterate (scanl1 (+)) a000040_list) !! 5

%o -- _Reinhard Zumkeller_, Feb 08 2015

%Y Cf. A007504, A014148, A014150, A178138.

%Y Cf. A254858.

%K easy,nonn

%O 1,1

%A _Harvey P. Dale_, Feb 07 2015