This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A192323 Expansion of theta_3(q^3) * theta_3(q^5) in powers of q. 1
 1, 0, 0, 2, 0, 2, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 0, 4, 0, 0, 2, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 4, 6, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 0, 2, 0, 0, 0, 0, 6, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 LINKS FORMULA Euler transform of period 60 sequence. G.f.: (Sum_{k} x^(3 * k^2)) * (Sum_{k} x^(5 * k^2)). a(3*n + 1) = a(4*n + 2) = a(5*n + 1) = a(5*n + 4) = 0. a(4*n) = A028956(n). EXAMPLE 1 + 2*q^3 + 2*q^5 + 4*q^8 + 2*q^12 + 4*q^17 + 2*q^20 + 4*q^23 + 2*q^27 + ... MATHEMATICA a[ n_] := SeriesCoefficient[ EllipticTheta[ 3, 0, q^3] EllipticTheta[ 3, 0, q^5], {q, 0, n}] PROG (PARI) {a(n) = if( n<1, n==0, qfrep([3, 0; 0, 5], n)[n]*2)} (PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x^6 + A) * eta(x^10 + A))^5 / (eta(x^3 + A) * eta(x^5 + A) * eta(x^12 + A) * eta(x^20 + A))^2, n))} CROSSREFS Cf. A028956. Sequence in context: A193511 A058087 A073274 * A071957 A002655 A064891 Adjacent sequences:  A192320 A192321 A192322 * A192324 A192325 A192326 KEYWORD nonn AUTHOR Michael Somos, Aug 01 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .