%I #3 Mar 31 2012 10:22:05
%S 216,55296,17280000,7464960000,4480842240000,3670705963008000,
%T 4013916970549248000,5734167100784640000000,
%U 10494242565323489280000000,24178734870505319301120000000,69056884663650242455928832000000
%N Coefficient of y^(n-3) in expansion of (y+n!)^n.
%t a = {}; Do[k = CoefficientList[Expand[(y + n!)^n], y]; AppendTo[a, k[[Length[k] - 3]]], {n, 3, 50}]; a
%Y Cf. A001563.
%K nonn
%O 3,1
%A _Artur Jasinski_, Oct 22 2007