A261632 Expansion of Product_{k>=0} 1/(1-x^(4*k+1))^3.
1, 3, 6, 10, 15, 24, 37, 54, 75, 103, 144, 198, 265, 348, 456, 599, 777, 993, 1262, 1602, 2028, 2543, 3165, 3930, 4868, 6003, 7359, 8991, 10965, 13329, 16138, 19473, 23448, 28171, 33738, 40293, 48025, 57132, 67803, 80267, 94845, 111888, 131736, 154779, 181530
Offset: 0
Keywords
Programs
-
Mathematica
nmax=50; CoefficientList[Series[Product[1/(1-x^(4*k+1))^3, {k, 0, nmax}], {x, 0, nmax}], x]
Formula
a(n) ~ exp(Pi*sqrt(n/2)) * 2^(3/8) * Gamma(1/4)^3 / (16 * Pi^(9/4) * n^(3/8)).