OFFSET
3,1
MATHEMATICA
nn = 15; b = Sum[n!^3 x^n/n!, {n, 0, nn}]; a = Sum[n!^2 x^n/n!, {n, 0,
nn}]; c = (Range[0, nn]! CoefficientList[Series[Log[a], {x, 0, nn}], x] - Table[(n - 1)!, {n, 0, nn}])/ 2; Drop[((Range[0, nn]!CoefficientList[Series[Log[b], {x, 0, nn}], x]) - 6 c - Table[(n - 1)!, {n, 0, nn}])/6, 3]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jan 17 2016
STATUS
approved