Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 Sep 03 2022 19:28:01
%S 4,108,3456,144000,7776000,533433600,45519667200,4740548198400,
%T 592568524800000,87634300723200000,15143207164968960000,
%U 3024511467403345920000,691604955546231767040000,179551286536040939520000000,52531576403687406305280000000
%N Coefficient of y^(n-2) in expansion of (y+n!)^n.
%H Matthew House, <a href="/A131092/b131092.txt">Table of n, a(n) for n = 2..251</a>
%F a(n) = n*(n-1)*(n!)^2/2. - _Matthew House_, Feb 15 2017
%t a = {}; Do[k = CoefficientList[Expand[(y + n!)^n], y]; AppendTo[a, k[[Length[k] - 2]]], {n, 1, 50}]; a
%t Table[n(n-1) (n!)^2/2,{n,2,20}] (* _Harvey P. Dale_, Sep 03 2022 *)
%Y Cf. A001563.
%K nonn
%O 2,1
%A _Artur Jasinski_, Oct 22 2007