A293463 Expansion of Product_{m>0} (1 + x^(2*m-1) + 2*x^(4*m-2) + 3*x^(6*m-3)).

1, 1, 2, 4, 1, 3, 6, 5, 9, 13, 12, 17, 23, 22, 25, 30, 46, 53, 62, 74, 80, 106, 117, 135, 170, 183, 224, 267, 279, 325, 397, 444, 512, 610, 679, 791, 877, 989, 1157, 1298, 1476, 1669, 1909, 2134, 2390, 2721, 3012, 3391, 3887, 4308, 4808, 5460, 6018, 6752, 7552

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..500

Mathematica

nmax = 100; CoefficientList[Series[Product[(1 + x^(2*k-1) + 2*x^(4*k-2) + 3*x^(6*k-3)), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 09 2017 *)

Prog

(PARI) m = 80; Vec(prod(k=1, m, 1 + x^(2*k-1) + 2*x^(4*k-2) + 3*x^(6*k-3)) + O(x^m)) \\ Michel Marcus, Oct 10 2017

Crossrefs

Column k=3 of A293461.

Cf. A293489.

Sequence in context: A117137 A002344 A011233 * A163360 A348138 A076053

Adjacent sequences: A293460 A293461 A293462 * A293464 A293465 A293466

Keyword

nonn

Author

Seiichi Manyama, Oct 09 2017

Status

approved