OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..214
FORMULA
E.g.f.: Sum_{n>=0} exp(n^2*x).
a(n) ~ exp(2)/(exp(2)-1) * n^(2*n).
G.f.: Sum_{k>=0} (k^2 * x)^k/(1 - k^2 * x). - Seiichi Manyama, Dec 03 2021
MATHEMATICA
Table[Sum[k^(2*n), {k, 1, n}], {n, 1, 20}]
Table[n!*SeriesCoefficient[Sum[Exp[k^2*x], {k, 1, n}], {x, 0, n}], {n, 1, 20}]
PROG
(PARI) a(n)=n!*polcoeff(sum(k=0, n, exp(k*x+x*O(x^n))^k), n);
for(n=1, 20, print1(a(n), ", "))
(PARI) my(N=20, x='x+O('x^N)); Vec(sum(k=0, N, (k^2*x)^k/(1-k^2*x))) \\ Seiichi Manyama, Dec 03 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 29 2014
EXTENSIONS
a(0)=1 prepended by Seiichi Manyama, Dec 03 2021
STATUS
approved