|
|
A094428
|
|
Expansion of infinite product (q^12, q^12, q^6; q^5, q^7; q^12)_oo.
|
|
0
|
|
|
1, 0, 0, 0, 0, 1, -1, 1, 0, 0, 1, -1, -1, -1, 1, 1, -1, 0, 0, 0, 0, 0, 0, -1, 1, 0, -1, -1, 0, 0, 1, -1, -1, -1, 0, 2, 0, 0, 0, 0, 0, -1, 0, 0, 0, 1, -2, 0, -1, 2, 0, -1, 1, -1, -1, 0, 1, 0, 0, 1, 0, -1, 0, 0, 1, 1, 0, 0, 0, 0, 1, -1, -1, 0, -1, 1, 0, 0, 1, -1, 1, 0, -1, 0, 1, 1, 0, 1, -1, -1, 1, 0, 1, 0, 1, 0, -1, -1, 1, 0, 1, 0, 1, 0, -1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,36
|
|
COMMENTS
|
|a(n)| < 3 if n < 1299, a(1299) = 3.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Product_{k>0} (1-x^(12k))^2 * (1-x^(12k-6)) / ((1-x^(12k-5))*(1-x^(12k-7))).
|
|
PROG
|
(PARI) a(n)=local(A); if(n<0, 0, A=1+x*O(x^n); polcoeff(prod(n=1, n\12+1, if(m=12*n, (A-x^m)^2*(A-x^(m-6))/(A-x^(m-5))/(A-x^(m-7)))), n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|