0,2

M. Boylan, Exceptional congruences for the coefficients of certain eta-product newforms, J. Number Theory 98 (2003), no. 2, 377-389.

L. E. Dickson, History of the Theory of Numbers. Carnegie Institute Public. 256, Washington, DC, Vol. 1, 1919; Vol. 2, 1920; Vol. 3, 1923, see vol. 3, p. 134.

J. W. L. Glaisher, On the function chi(n), Quarterly Journal of Pure and Applied Mathematics, 20 (1884), 97-167.

Newman, Morris; A table of the coefficients of the powers of $\eta(\tau)$. Nederl. Akad. Wetensch. Proc. Ser. A. 59 = Indag. Math. 18 (1956), 204-216.

S. R. Finch, Powers of Euler's q-Series, (arXiv:math.NT/0701251).

Index entries for expansions of Product_{k >= 1} (1-x^k)^m

G.f.: Product_{k>0}(1-x^k)^6.

Given g.f. A(x), then A(q^4)=f(-q^4)^6=phi(q)phi(-q)psi(q^2)^4 where phi(),psi(),f() are Ramanujan theta functions. - Michael Somos Aug 23 2006

a(n) = b(4n+1) where b(n) is multiplicative with b(2^e) = 0^e, b(p^e) = p^e(1+(-1)^e)/2 if p == 3 (mod 4), b(p^e)=b(p)b(p^(e-1))-b(p^(e-2))p^2 if p == 1 (mod 4) and b(p) = (-1)^y(x^2-y^2) where p = x^2+y^2. - Michael Somos Aug 23 2006

G.f.: Sum_{k>=0} a(k)*x^(4*k+1) = (1/2)* Sum_{u,v} (u*u -4*v*v)* x^(u*u +4*v*v). - Michael Somos Jun 14 2007

q - 6*q^5 + 9*q^9 + 10*q^13 - 30*q^17 + 11*q^25 + 42*q^29 - 70*q^37 + ...

(PARI) {a(n)=local(A); if(n<0, 0, A=x*O(x^n); polcoeff( eta(x+A)^6, n))}

(PARI) {a(n)= local(A, p, e, x, y, a0, a1); if(n<0, 0, n=4*n+1; A=factor(n); prod(k=1, matsize(A)[1], if(p=A[k, 1], e=A[k, 2]; if(p==2, 0, if(p%4==3, if(e%2, 0, p^e), for(i=1, sqrtint(p\2), if(issquare(p-i^2, &y), x=i; break)); a0=1; a1=y=2*(x^2-y^2)*(-1)^y; for(i=2, e, x=y*a1-p^2*a0; a0=a1; a1=x); a1)))))} /* Michael Somos Aug 21 2006 */

Sequence in context: A130593 A051221 A029843 this_sequence A106248 A132725 A133451

Adjacent sequences: A000726 A000727 A000728 this_sequence A000730 A000731 A000732

easy,sign

njas