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
(PARI) a(n) = sum(m=1, n, sum(i=1, m, sum(k=1, i, prime(k)))) \\ Bruce Nye, Feb 15 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset fixed by Reinhard Zumkeller, Feb 08 2015
STATUS
approved