A294192 a(n) = n! * [x^n] exp(n*(1/(1-x)^n- 1)).

1, 1, 28, 1881, 241696, 50903725, 15950981376, 6965675824177, 4044321664205824, 3013398202413705561, 2802908316869098624000, 3183461016834811739809321, 4335741846110695855971852288, 6974958097518147761490109983781

Offset: 0

Author

Seiichi Manyama, Oct 24 2017

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 0..100

Crossrefs

Main diagonal of A294188.

Cf. A294047.

Programs

Maple

S:= series(exp(n*(1/(1-x)^n-1)),x,31):
seq(n!*coeff(S,x,n),n=0..30); # Robert Israel, Oct 24 2017

Mathematica

Table[n! SeriesCoefficient[Exp[n (1 / (1 - x)^n - 1)], {x, 0, n}], {n, 0, 20}] (* Vincenzo Librandi, Oct 25 2017 *)