|
%I #14 Aug 29 2016 02:55:00
%S 1,36,402,3064,18351,93300,419150,1708632,6432867,22659976,75404754,
%T 238825344,724242492,2113022844,5954784540,16263489048,43168780485,
%U 111630095424,281807843656,695783026296,1682813702136,3992563842088
%N Expansion of 8*eta(2*tau)^8/eta(tau)^16 + eta(tau/2)^8/eta(tau)^16.
%H Vincenzo Librandi, <a href="/A105095/b105095.txt">Table of n, a(n) for n = 0..200</a>
%H Borcherds, Richard E., <a href="http://arXiv.org/abs/alg-geom/9609022">Automorphic forms with singularities on Grassmannians</a>, Invent. Math. 132 (1998), 491-562.
%t max = 30; QP = QPochhammer; s = QP[q]^8/QP[q^2]^16 + O[q]^(2max+1); Table[ SeriesCoefficient[s, 2 n], {n, 0, max}] (* _Jean-François Alcover_, Nov 25 2015 *)
%o (PARI) {a(n)=local(A); if(n<0,0, n*=2; A=x*O(x^n); polcoeff( eta(x+A)^8/eta(x^2+A)^16,n))} /* _Michael Somos_, Apr 09 2005 */
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, Apr 07 2005
%E More terms from _Michael Somos_, Apr 07 2005
|
