%I #20 Sep 20 2019 03:54:17
%S 1,-47,505,-2415,9661,-23735,-33487,237201,-163277,-454067,1069225,
%T -1219575,-1155475,1573889,4878805,323217,-13811867,7674019,21322841,
%U -23331315,-16910935,-50253575,37286545,119786505
%N Dirichlet convolution of [ 1,1,1,... ] with A034778.
%C Multiplicative because both A000012 and A034778 are. - _Christian G. Bower_, May 16 2005
%t b[n_] := DivisorSum[n, RamanujanTau[#] RamanujanTau[n/#]&];
%t a[n_] := DivisorSum[n, b];
%t a /@ Range[1, 24] (* _Jean-François Alcover_, Sep 20 2019 *)
%o (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
%Y Cf. A000012, A034778.
%K sign,mult
%O 1,2
%A _N. J. A. Sloane_
%E Offset corrected by _Andrew Howroyd_, Feb 11 2018
|