OFFSET
0,3
FORMULA
E.g.f.: Sum_{k>=0} (-log(1 - k^2*x))^k / k!.
MATHEMATICA
Unprotect[Power]; Power[0, 0] = 1; Protect[Power]; nmax=13; Range[0, nmax]!CoefficientList[Series[Sum[(-Log[1 - k^2*x])^k / k!, {k, 0, nmax}], {x, 0, nmax}], x] (* Stefano Spezia, Jun 19 2024 *)
PROG
(PARI) a(n) = sum(k=0, n, k^(2*n)*abs(stirling(n, k, 1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jun 19 2024
STATUS
approved