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

1, 0, 0, 3, 0, 0, 9, 7, 0, 27, 21, 11, 81, 63, 82, 258, 189, 246, 851, 586, 738, 2896, 1984, 2237, 8688, 6491, 7009, 26091, 21874, 22609, 78868, 65653, 71600, 240021, 197686, 231642, 731137, 599038, 696146, 2219861, 1821033, 2098301, 6778660, 5540660

Offset

0,4

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..5000

Formula

a(n) ~ c * 3^(n/3), where

c = 1.440862416741436228307395343405986172843082997125243989739... if mod(n,3) = 0

c = 0.839303125100473007517704405672941818726137049977537857220... if mod(n,3) = 1

c = 0.669924376359406710094617326814984989681716404092521759237... if mod(n,3) = 2.

Mathematica

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

Crossrefs

Cf. A067553, A265820, A265821, A265829, A265830.

Sequence in context: A216469 A319359 A104751 * A177016 A346811 A244127

Adjacent sequences: A265825 A265826 A265827 * A265829 A265830 A265831

Keyword

nonn

Author

Vaclav Kotesovec, Dec 16 2015

Status

approved