|
| |
|
|
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;
text;
internal format)
|
|
|
|
OFFSET
|
0,36
|
|
|
COMMENTS
|
|a(n)|<3 if n<1299, a(1299)=3.
|
|
|
LINKS
|
Table of n, a(n) for n=0..104.
|
|
|
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 * A277148 A194024 A082786
Adjacent sequences: A094425 A094426 A094427 * A094429 A094430 A094431
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
Michael Somos, May 10 2004
|
|
|
STATUS
|
approved
|
| |
|
|
