|
| |
|
|
A135828
|
|
Expansion of psi(q^2)^8 * (psi(q)^8 + psi(-q)^8) / 2 in powers of q^2 where psi() is a Ramanujan theta function.
|
|
1
| |
|
|
1, 36, 378, 2200, 8955, 28836, 78558, 188568, 410805, 828080, 1564686, 2804976, 4809370, 7927380, 12643560, 19594632, 29568204, 43626708, 63094550, 89501040, 124916931, 171803652, 232822908, 311683680, 412601490, 539849556, 699657642
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Ramanujan theta functions: f(q) := Prod_{k>=1} (1-(-q)^k) (see A121373), phi(q) := theta_3(q) := Sum_{k=-oo..oo} q^(k^2) (A000122), psi(q) := Sum_{k=0..oo} q^(k*(k+1)/2) (A10054), chi(q) := Prod_{k>=0} (1+q^(2k+1)) (A000700).
|
|
|
LINKS
| M. Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
|
|
|
FORMULA
| Expansion of q^(-3) * ( eta(q^2)^24 + eta(q)^16 * eta(q^4)^8 ) / ( 2 * eta(q)^8 * eta(q^2)^16 / eta(q^4)^16 ) in powers of q^2.
|
|
|
EXAMPLE
| q^3 + 36*q^5 + 378*q^7 + 2200*q^9 + 8955*q^11 + 28836*q^13 + 78558*q^15 + ...
|
|
|
PROG
| (PARI) {a(n) = local(A); if( n<0, 0, n *= 2; A = x * O(x^n); polcoeff( ( eta(x^2 + A)^24 + eta(x + A)^16 * eta(x^4 + A)^8 ) / ( 2 * eta(x + A)^8 * eta(x^2 + A)^16 / eta(x^4 + A)^16 ), n))}
|
|
|
CROSSREFS
| A008774(2*n+3) = 7680 * a(n). Convolution of A007331 and A045823.
Sequence in context: A000821 A203282 A071232 * A034686 A160280 A095682
Adjacent sequences: A135825 A135826 A135827 * A135829 A135830 A135831
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Michael Somos, Nov 29 2007
|
| |
|
|
