|
%I #31 Dec 05 2015 04:09:10
%S 1,2,16,512,38416,7962624,4096000000,4398046511104,10000000000000000,
%T 48717667557975775744,451730952053751361306624,
%U 7982572438812891719395180544,268637376395543538746286686601216,16132732437821617561429013924830773248
%N a(n) = A015128(n)^n.
%H Vaclav Kotesovec, <a href="/A265015/b265015.txt">Table of n, a(n) for n = 0..95</a>
%F a(n) ~ exp(Pi*n^(3/2) - sqrt(n)/Pi - 1/(2*Pi^2)) / (8^n * n^n) * (1 - 1/(3*Pi^3*sqrt(n))).
%t nmax = 15; A015128 = Rest[CoefficientList[Series[Product[(1+x^k)/(1-x^k), {k,1,nmax}], {x,0,nmax}], x]]; Flatten[{1, Table[A015128[[n]]^n, {n,1,nmax}]}]
%Y Cf. A015128, A133018, A156616, A265094.
%K nonn
%O 0,2
%A _Vaclav Kotesovec_, Dec 05 2015
|
