login
A303391
Expansion of Product_{k>=1} (1 + 4*x^k)/(1 - 4*x^k).
5
1, 8, 40, 200, 872, 3720, 15400, 62920, 254440, 1024648, 4112680, 16483400, 66000360, 264150920, 1056903080, 4228272200, 16914393832, 67660396040, 270647139240, 1082600410440, 4330424811880, 17321748357640, 69287088965800, 277148557003720, 1108594618342760
OFFSET
0,2
LINKS
FORMULA
a(n) ~ c * 4^n, where c = QPochhammer[-1, 1/4] / QPochhammer[1/4] = 3.9385207073365388638943873939345313401323799...
MAPLE
N:= 50: # for a(0)..a(N)
G:= mul((1+4*x^k)/(1-4*x^k), k=1..N):
S:= series(G, x, N+1):
seq(coeff(S, x, j), j=0..N); # Robert Israel, Feb 13 2019
MATHEMATICA
nmax = 25; CoefficientList[Series[Product[(1+4*x^k)/(1-4*x^k), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Apr 23 2018
STATUS
approved