|
%I #32 Sep 02 2017 03:48:28
%S 1,1,1,1,3,3,3,3,6,9,9,9,13,19,19,19,28,37,43,43,57,69,81,81,100,132,
%T 150,160,184,236,260,280,319,391,460,490,565,657,771,811,922,1084,
%U 1243,1363,1510,1781,1985,2185,2388,2775,3159,3439,3832,4335,4963,5323
%N Expansion of Product_{k>=1} 1/(1-x^(k^2))^k.
%H Vaclav Kotesovec, <a href="/A285047/b285047.txt">Table of n, a(n) for n = 0..10000</a>
%F log(a(n)) ~ Pi*sqrt(n/3).
%t nmax=100; CoefficientList[Series[Product[1/(1-x^(k^2))^k, {k,1,nmax}], {x,0,nmax}], x]
%Y Cf. A000219, A001156, A023871, A266941, A281790.
%K nonn
%O 0,5
%A _Vaclav Kotesovec_, Apr 15 2017
|
