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,1

Links

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

Formula

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

Mathematica

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

Prog

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

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.

Sequence in context: A364206 A364227 A088020 * A289640 A319977 A362565

Adjacent sequences: A289743 A289744 A289745 * A289747 A289748 A289749

Keyword

nonn

Author

Seiichi Manyama, Jul 11 2017

Status

approved