|
%I #5 Dec 16 2015 05:57:18
%S 1,0,0,3,0,0,9,0,8,27,0,24,81,13,72,243,103,216,747,309,648,2345,927,
%T 1967,7547,2781,6214,22641,8371,19474,67923,25531,62518,203802,79097,
%U 187554,612253,243947,562700,1842300,764609,1689142,5546932,2293870,5077244
%N Expansion of Product_{k>=1} 1/(1 - (5*k-2)*x^(5*k-2)).
%H Vaclav Kotesovec, <a href="/A265832/b265832.txt">Table of n, a(n) for n = 0..5000</a>
%F a(n) ~ c * 3^(n/3), where
%F c = 1.171555591294550584937080627149625982761747171861533383233... if mod(n,3) = 0
%F c = 0.337047816440008855542662141834272219461954848118918717600... if mod(n,3) = 1
%F c = 0.518706292284531581251050944157928147536875425948432140453... if mod(n,3) = 2.
%t nmax = 40; CoefficientList[Series[Product[1/(1 - (5*k-2)*x^(5*k-2)), {k, 1, nmax}], {x, 0, nmax}], x]
%Y Cf. A067553, A265820, A265821, A265828, A265829, A265830.
%Y Cf. A265831, A265833, A265834.
%K nonn
%O 0,4
%A _Vaclav Kotesovec_, Dec 16 2015
|
