|
| |
|
|
A094428
|
|
Expansion of infinite product (q^12,q^12,q^6;q^5,q^7;q^12)_infty.
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,36
|
|
|
COMMENTS
| |a(n)|<3 if n<1299, a(1299)=3.
|
|
|
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
| Sequence in context: A083916 A083893 A187097 * A194024 A082786 A101638
Adjacent sequences: A094425 A094426 A094427 * A094429 A094430 A094431
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Michael Somos, May 10 2004
|
| |
|
|
