A034779 Dirichlet convolution of [ 1,1,1,... ] with A034778.

1, -47, 505, -2415, 9661, -23735, -33487, 237201, -163277, -454067, 1069225, -1219575, -1155475, 1573889, 4878805, 323217, -13811867, 7674019, 21322841, -23331315, -16910935, -50253575, 37286545, 119786505

Offset: 1

Author

N. J. A. Sloane

Keywords

• sign
• mult

Comments

Multiplicative because both A000012 and A034778 are. - Christian G. Bower, May 16 2005

Crossrefs

Cf. A000012, A034778.

Programs

Mathematica

b[n_] := DivisorSum[n, RamanujanTau[#] RamanujanTau[n/#]&];
a[n_] := DivisorSum[n, b];
a /@ Range[1, 24] (* Jean-François Alcover, Sep 20 2019 *)

PARI

seq(n)={my(v=Vec(eta(x + O(x^n))^24)); dirmul(dirmul(v,v), vector(#v,n,1))} \\ Andrew Howroyd, Feb 12 2018

Extensions

Offset corrected by Andrew Howroyd, Feb 11 2018