A300582 Expansion of Product_{k>=1} 1 / (1 - 3*2^k*x^k).
1, 6, 48, 312, 2064, 12768, 79680, 484224, 2947584, 17783808, 107268096, 644960256, 3877367808, 23282294784, 139790696448, 838984925184, 5035133042688, 30213857476608, 181298502303744, 1087829443608576, 6527166069080064, 39163476131708928, 234983177934864384
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 25; CoefficientList[Series[Product[1/(1-3*2^k*x^k), {k, 1, nmax}], {x, 0, nmax}], x]
Formula
a(n) ~ c * 6^n, where c = 1/QPochhammer(1/3) = 1.7853123419985341903674862960137...