0,3
Table of n, a(n) for n=0..10.
Table[(n!)^n SeriesCoefficient[-Log[1 - Sum[x^k/(k!)^n, {k, 1, n}]], {x, 0, n}], {n, 0, 10}]
b[n_, k_] := If[n == 0, 0, 1 + (1/n) Sum[Binomial[n, j]^k j b[j, k], {j, 1, n - 1}]]; a[n_] := b[n, n]; Table[a[n], {n, 0, 10}]
Cf. A000629, A102223, A326321, A336427, A336438, A336439, A336440.
Sequence in context: A303826 A128296 A037114 * A069457 A142416 A110625
Adjacent sequences: A336434 A336435 A336436 * A336438 A336439 A336440
nonn
Ilya Gutkovskiy, Jul 21 2020
approved
