OFFSET
1,2
COMMENTS
MATHEMATICA
b[n_] := DivisorSum[n, RamanujanTau[#] RamanujanTau[n/#]&];
a[n_] := DivisorSum[n, b];
a /@ Range[1, 24] (* Jean-François Alcover, Sep 20 2019 *)
PROG
(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
CROSSREFS
KEYWORD
sign,mult
AUTHOR
EXTENSIONS
Offset corrected by Andrew Howroyd, Feb 11 2018
STATUS
approved