%I #8 Dec 29 2021 14:00:15
%S 1,1,2,2,2,4,4,7,8,9,12,14,18,23,27,33,39,46,56,67,79,93,109,126,150,
%T 175,204,237,272,314,364,419,482,553,629,720,823,937,1069,1212,1372,
%U 1555,1759,1989,2247,2530,2845,3200,3594,4036,4528,5067,5666,6333,7070
%N Expansion of Product_{k>=1} (1 + x^k)^(mod(k,3)).
%H Seiichi Manyama, <a href="/A301588/b301588.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) ~ exp(Pi*sqrt(n/3)) / (2^(5/3) * 3^(1/4) * n^(3/4)).
%t nmax = 100; CoefficientList[Series[Product[(1+x^k)^Mod[k, 3], {k, 1, nmax}], {x, 0, nmax}], x]
%Y Cf. A010872, A301589.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Mar 24 2018
|