OFFSET
0,4
FORMULA
MATHEMATICA
nn=15; g=Sum[2^Binomial[n, 2]x^n/n!, {n, 0, nn}]; Range[0, nn]!CoefficientList[Series[(Log[g]-x)g, {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Mar 28 2013
STATUS
approved