A291583 Expansion of Product_{k>=1} 1/(1 - 2*x^(k^2)).

1, 2, 4, 8, 18, 36, 72, 144, 292, 586, 1172, 2344, 4696, 9396, 18792, 37584, 75186, 150380, 300764, 601528, 1203092, 2406200, 4812408, 9624816, 19249704, 38499446, 76998908, 153997824, 307995792, 615991660, 1231983352, 2463966720, 4927933732, 9855867616

Offset

0,2

Links

Table of n, a(n) for n=0..33.

Formula

a(n) = c * 2^n, where c = Product_{k>=2} 1/(1 - 2^(1-k^2)) = 1.1473740190706250791012378892728990358979800885299281286906257674366893358222...

Mathematica

nmax = 30; CoefficientList[Series[Product[1/(1 - 2*x^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A001156, A070933.

Sequence in context: A092507 A347036 A297188 * A218874 A212205 A018096

Adjacent sequences: A291580 A291581 A291582 * A291584 A291585 A291586

Keyword

nonn

Author

Vaclav Kotesovec, Aug 31 2017

Status

approved