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

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

Offset

0,2

Links

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

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

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

Crossrefs

Cf. A015128, A133018, A156616, A265094.

Sequence in context: A189335 A189773 A189152 * A267728 A063387 A326251

Adjacent sequences: A265012 A265013 A265014 * A265016 A265017 A265018

Keyword

nonn

Author

Vaclav Kotesovec, Dec 05 2015

Status

approved