A289744 Coefficients in expansion of q*E'_8 where E_8 is the Eisenstein Series (A008410).

480, 123840, 3150720, 31704960, 187502400, 812885760, 2767107840, 8116473600, 20671878240, 48375619200, 102892268160, 208111357440, 391550752320, 713913822720, 1230765753600, 2077817249280, 3348363579840, 5333344585920, 8152110268800, 12384908524800

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), this sequence (k=8), A289745 (k=10), A289746 (k=14).

Cf. A008410 (E_8), A013955, A282060, A289638.

Programs

Mathematica

Table[480*n*DivisorSigma[7, n], {n, 1, 20}] (* Jean-François Alcover, Feb 27 2018 *)

PARI

a(n) = 480 * n * sigma(n, 7); \\ Amiram Eldar, Jan 07 2025

Formula

a(n) = 480*A282060(n) = 480*n*A013955(n).