%I #4 Sep 29 2017 07:20:08
%S 1,1,4,24,192,1880,21312,266504,3469312,42094656,297625600,
%T -8727514752,-659406274560,-31019532622208,-1314656227540992,
%U -54314985911216640,-2248955319931633664,-94369141109824233472,-4028982346754921594880,-175032005028072692797440
%N a(n) = n! * [x^n] exp(n*sin(x)).
%t Table[n! SeriesCoefficient[Exp[n Sin[x]], {x, 0, n}], {n, 0, 19}]
%Y Cf. A002017.
%K sign
%O 0,3
%A _Ilya Gutkovskiy_, Sep 28 2017