OFFSET
0,2
COMMENTS
First derivative of cusp form Delta (see A000594).
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..1000
M. Kaneko and D. Zagier, Supersingular j-invariants, hypergeometric series and Atkin's orthogonal polynomials, pp. 97-126 of D. A. Buell and J. T. Teitelbaum, eds., Computational Perspectives on Number Theory, Amer. Math. Soc., 1998
FORMULA
a(n) = (n+1) * A000594(n+1). - Seiichi Manyama, Feb 03 2017
EXAMPLE
G.f. = 1 - 2*24*q + 3*252*q^2 - 4*1472*q^3 + 5*4830*q^4 - 6*6048*q^5 - 7*16744*q^6 + ...
MAPLE
with(numtheory); E:=proc(k) series(1-(2*k/bernoulli(k))*add( sigma[k-1](n)*q^n, n=1..60), q, 61); end; Delta:=series((E(4)^3-E(6)^2)/1728, q, 60); diff(%, q);
MATHEMATICA
a[n_] := (n+1)*RamanujanTau[n+1];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Apr 12 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Feb 28 2009
STATUS
approved