|
|
A105095
|
|
Expansion of 8*eta(2*tau)^8/eta(tau)^16 + eta(tau/2)^8/eta(tau)^16.
|
|
1
|
|
|
1, 36, 402, 3064, 18351, 93300, 419150, 1708632, 6432867, 22659976, 75404754, 238825344, 724242492, 2113022844, 5954784540, 16263489048, 43168780485, 111630095424, 281807843656, 695783026296, 1682813702136, 3992563842088
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(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 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|