login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A146165 Expansion of q^(1/4) * eta(q^5)^2 * eta(q^20) / (eta(q^4) * eta(q^10)^2) in powers of q. 1

%I

%S 1,0,0,0,1,-2,0,0,2,-2,1,0,3,-4,1,-2,5,-6,2,-2,10,-10,3,-4,14,-16,5,

%T -6,21,-24,11,-10,31,-34,15,-18,45,-50,23,-26,67,-70,34,-38,93,-104,

%U 50,-56,130,-140,77,-80,179,-196,107,-120,245,-264,151,-164,338,-360,210,-230,451,-488,290,-314,604,-650,404

%N Expansion of q^(1/4) * eta(q^5)^2 * eta(q^20) / (eta(q^4) * eta(q^10)^2) in powers of q.

%F Euler transform of period 20 sequence [ 0, 0, 0, 1, -2, 0, 0, 1, 0, 0, 0, 1, 0, 0, -2, 1, 0, 0, 0, 0, ...].

%e q + q^17 - 2*q^21 + 2*q^33 - 2*q^37 + q^41 + 3*q^49 - 4*q^53 + q^57 + ...

%t QP = QPochhammer; s = QP[q^5]^2*(QP[q^20]/(QP[q^4]*QP[q^10]^2)) + O[q]^80; CoefficientList[s, q] (* _Jean-Fran├žois Alcover_, Nov 25 2015 *)

%o (PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^5 + A)^2 * eta(x^20 + A) / (eta(x^4 + A) * eta(x^10 + A)^2), n))}

%Y Convolution inverse of A146164.

%K sign

%O 0,6

%A _Michael Somos_, Oct 27 2008

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 22 04:27 EST 2020. Contains 331133 sequences. (Running on oeis4.)