A265015 a(n) = A015128(n)^n.

1, 2, 16, 512, 38416, 7962624, 4096000000, 4398046511104, 10000000000000000, 48717667557975775744, 451730952053751361306624, 7982572438812891719395180544, 268637376395543538746286686601216, 16132732437821617561429013924830773248

Offset: 0

Author

Vaclav Kotesovec, Dec 05 2015

Keywords

• nonn

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..95

Crossrefs

Cf. A015128, A133018, A156616, A265094.

Programs

Mathematica

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}]}]

Formula

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))).