|
|
A071109
|
|
Expansion of Product_{k>=1} 1/(1+2*x^k).
|
|
5
|
|
|
1, -2, 2, -6, 14, -26, 50, -102, 214, -426, 834, -1678, 3398, -6778, 13482, -27022, 54198, -108306, 216346, -432878, 866334, -1732386, 3463626, -6927926, 13858350, -27715378, 55426002, -110855030, 221719582, -443433610, 886848930, -1773709078, 3547455846
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * (-2)^n, where c = Product_{j>=1} 1/(1-1/(-2)^j) = 1/QPochhammer[-1/2,-1/2] = 0.8259519860658427384636116224100201356301... . - Vaclav Kotesovec, Aug 25 2015
G.f.: Sum_{i>=0} (-2)^i*x^i/Product_{j=1..i} (1 - x^j). - Ilya Gutkovskiy, Apr 13 2018
|
|
MATHEMATICA
|
nmax = 40; CoefficientList[Series[Product[1/(1 + 2*x^k), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 25 2015 *)
nmax = 40; CoefficientList[Series[Exp[Sum[(-1)^k*2^k/k*x^k/(1-x^k), {k, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 25 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Sharon Sela (sharonsela(AT)hotmail.com), May 27 2002
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|