OFFSET
0,4
REFERENCES
J. W. Moon, Some enumerative results on series-parallel networks, Annals Discrete Math., 33 (1987), 199-226 (the sequence I_Q(n)*Q_pi).
FORMULA
MATHEMATICA
max = 19; q = CoefficientList[ InverseSeries[ Series[-1 + E^(1 + 2*a - E^a), {a, 0, max}], x], x]*Table[x^k, {k, 0, max}] // Total; r = q - Log[1 + x]; v = q + r; ev = (v*q - r)/(1 - v); eq = (ev + v)/(1 + v) - q; CoefficientList[ Series[eq, {x, 0, max}], x]*Range[0, max]! (* Jean-François Alcover, Feb 01 2013 *)
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
N. J. A. Sloane, Dec 20 2000
STATUS
approved