# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a145155
Showing 1-1 of 1

%I A145155 #14 Apr 12 2023 09:04:01
%S A145155 1,-48,756,-5888,24150,-36288,-117208,675840,-1022787,-1159200,
%T A145155 5880732,-4451328,-7510594,5625984,18257400,15794176,-117400878,
%U A145155 49093776,202566980,-142195200,-88609248,-282275136,428795256,510935040,-637480625,360508512,-1978535160
%N A145155 Coefficients in expansion of Delta'(q).
%C A145155 First derivative of cusp form Delta (see A000594).
%H A145155 Seiichi Manyama, <a href="/A145155/b145155.txt">Table of n, a(n) for n = 0..1000</a>
%H A145155 M. Kaneko and D. Zagier, <a href="http://www2.math.kyushu-u.ac.jp/~mkaneko/papers/atkin.pdf">Supersingular j-invariants, hypergeometric series and Atkin's orthogonal polynomials</a>, pp. 97-126 of D. A. Buell and J. T. Teitelbaum, eds., Computational Perspectives on Number Theory, Amer. Math. Soc., 1998
%F A145155 a(n) = (n+1) * A000594(n+1). - _Seiichi Manyama_, Feb 03 2017
%e A145155 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 + ...
%p A145155 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);
%t A145155 a[n_] := (n+1)*RamanujanTau[n+1];
%t A145155 Table[a[n], {n, 0, 100}] (* _Jean-François Alcover_, Apr 12 2023 *)
%Y A145155 Cf. A000594.
%K A145155 sign
%O A145155 0,2
%A A145155 _N. J. A. Sloane_, Feb 28 2009

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE