|
%I #6 Apr 15 2017 12:39:49
%S 1,1,0,0,2,2,0,0,0,3,3,0,0,6,6,0,4,4,0,0,8,8,0,0,0,17,17,0,0,34,34,0,
%T 0,0,15,15,6,6,30,30,12,32,20,0,0,58,58,0,0,43,103,60,24,38,134,120,
%U 48,48,21,21,0,102,144,42,8,240,232,0,16,72,146,90,0
%N Expansion of Product_{k>=1} (1 + k*x^(k^2)).
%H Vaclav Kotesovec, <a href="/A285244/b285244.txt">Table of n, a(n) for n = 0..10000</a>
%t nmax = 100; CoefficientList[Series[Product[(1 + k*x^(k^2)), {k,1,nmax}], {x,0,nmax}], x]
%Y Cf. A022629, A033461, A285242, A285245.
%K nonn
%O 0,5
%A _Vaclav Kotesovec_, Apr 15 2017
|
