|
%I #6 Oct 12 2017 08:09:59
%S 4,65,566,3710,20756,105299,500862,2278936,10046620,43280341,
%T 183278902,766153042,3171277460,13027450455,53203165950,216290270892,
%U 876183166140,3539559610905,14267986165270,57416955957350,230750092893524,926388737476955,3716144413352126
%N Column 4 of A142249.
%H Vaclav Kotesovec, <a href="/A293562/b293562.txt">Table of n, a(n) for n = 4..300</a>
%F a(n) ~ 5 * 4^n / 6.
%t Table[(CoefficientList[Simplify[(1-x)^n * PolyLog[-n, 2, x] / (x*Log[1-x])], x]/.x->1-E)[[4]], {n, 5, 20}]
%Y Cf. A142249.
%K nonn
%O 4,1
%A _Vaclav Kotesovec_, Oct 12 2017
|
