login
A265015
a(n) = A015128(n)^n.
1
1, 2, 16, 512, 38416, 7962624, 4096000000, 4398046511104, 10000000000000000, 48717667557975775744, 451730952053751361306624, 7982572438812891719395180544, 268637376395543538746286686601216, 16132732437821617561429013924830773248
OFFSET
0,2
LINKS
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
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Dec 05 2015
STATUS
approved