|
%I #14 Oct 11 2017 03:48:20
%S 1,1,2,4,1,3,6,5,9,13,12,17,23,22,25,30,46,53,62,74,80,106,117,135,
%T 170,183,224,267,279,325,397,444,512,610,679,791,877,989,1157,1298,
%U 1476,1669,1909,2134,2390,2721,3012,3391,3887,4308,4808,5460,6018,6752,7552
%N Expansion of Product_{m>0} (1 + x^(2*m-1) + 2*x^(4*m-2) + 3*x^(6*m-3)).
%H Seiichi Manyama, <a href="/A293463/b293463.txt">Table of n, a(n) for n = 0..500</a>
%t 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 *)
%o (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
%Y Column k=3 of A293461.
%Y Cf. A293489.
%K nonn
%O 0,3
%A _Seiichi Manyama_, Oct 09 2017
|
