A144249 Apply partial sum operator twice to A000594.

1, -22, 207, -1036, 2551, 90, -19115, 46160, -2208, -166496, 203828, 203208, -375150, -551652, 489006, 2516800, -2361340, -4512048, 3998664, 5399616, 2581080, -13068144, -10074096, 14208912, 12992695, 25642190, -34987395, -70969812, 21454401, 84666774, 95035979

Offset

1,2

Links

Table of n, a(n) for n=1..31.

Mathematica

lst={}; s1=0; s2=0; Do[s1=s1+RamanujanTau[n]; s2=s2+s1; AppendTo[lst, s2], {n, 5!}]; lst
Nest[Accumulate, RamanujanTau[Range[32]], 2] (* Amiram Eldar, Jan 08 2025 *)

Crossrefs

Cf. A000594.

Partial sums of A144248.

Sequence in context: A031202 A376946 A274982 * A280475 A010828 A022714

Adjacent sequences: A144246 A144247 A144248 * A144250 A144251 A144252

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Sep 16 2008

Status

approved