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