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

Author

Seiichi Manyama, Oct 09 2017

Keywords

• nonn

Links

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

Crossrefs

Column k=3 of A293461.

Cf. A293489.

Programs

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 *)

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