OFFSET
4,1
MATHEMATICA
a = {}; Do[k = CoefficientList[Expand[(y + n!)^n], y]; AppendTo[a, k[[Length[k] - 4]]], {n, 4, 50}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 22 2007
STATUS
approved