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

Author

Vladimir Joseph Stephan Orlovsky, Sep 16 2008

Keywords

• sign

Crossrefs

Cf. A000594.

Partial sums of A144248.

Programs

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