A289833 Fourier coefficients of -q*(Delta/q)' where Delta is the normalized unique weight-twelve cusp form for the full modular group (the generating function of Ramanujan's tau function).

24, -504, 4416, -19320, 30240, 100464, -591360, 909144, 1043280, -5346120, 4080384, 6932856, -5224128, -17040240, -14807040, 110494944, -46366344, -191905560, 135085440, 84389760, 269444448, -410151984, -489646080, 611981400, -346642800, 1905256080

Offset

1,1

Links

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

Formula

a(n) = -n*A000594(n+1).

Example

G.f.: 24*q - 504*q^2 + 4416*q^3 - 19320*q^4 + 30240*q^5 + 100464*q^6 - 591360*q^7 + ...

Mathematica

a[n_] := -n * RamanujanTau[n+1]; Array[a, 26] (* Amiram Eldar, Jan 11 2025 *)

Prog

(PARI) a(n) = -n * ramanujantau(n+1); \\ Amiram Eldar, Jan 11 2025

Crossrefs

Cf. A000594, A006352 (E_2), A147843.

Sequence in context: A004383 A112390 A166757 * A242524 A264956 A055007

Adjacent sequences: A289830 A289831 A289832 * A289834 A289835 A289836

Keyword

sign

Author

Seiichi Manyama, Jul 13 2017

Status

approved