login
a(n) = n! * Sum_{k=0..n} (-k * (n-k))^k/k!.
1

%I #9 Feb 20 2022 06:43:36

%S 1,1,0,6,36,-1240,36810,-743568,-4441640,2126086272,-201265464330,

%T 13670088101120,-512174277963612,-50655591400627200,

%U 16935777106057251442,-2936123018591228282880,368896773292405165345200,-22278163772113766968557568

%N a(n) = n! * Sum_{k=0..n} (-k * (n-k))^k/k!.

%t a[n_] := n!*(1 + Sum[(-k*(n - k))^k/k!, {k, 1, n}]); Array[a, 18, 0] (* _Amiram Eldar_, Feb 19 2022 *)

%o (PARI) a(n) = n!*sum(k=0, n, (-k*(n-k))^k/k!);

%Y Cf. A351780, A351795.

%K sign

%O 0,4

%A _Seiichi Manyama_, Feb 19 2022