A289746 Coefficients in expansion of -q*E'_14 where E_14 is the Eisenstein Series (A058550).

24, 393264, 114791328, 6443237472, 146484375120, 1880970700608, 16277353748544, 105566002741440, 549043363293048, 2400292970716320, 9113996005998048, 30817824417926784, 94497033256783248, 266720718523641984, 700630664636456640

Offset: 1

Author

Seiichi Manyama, Jul 11 2017

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..10000

Crossrefs

(-1)^(k/2)*q*E'_{k}: A076835 (k=2), A145094 (k=4), A145095 (k=6), A289744 (k=8), A289745 (k=10), this sequence (k=14).

Cf. A013961, A058550 (E_14), A282597, A289640.

Programs

Mathematica

Table[24*n*DivisorSigma[13, n], {n, 1, 15}] (* Jean-François Alcover, Feb 27 2018 *)

PARI

a(n) = 24*n*sigma(n, 13); \\ Michel Marcus, Feb 27 2018

Formula

a(n) = 24*A282597(n) = 24*n*A013961(n).