E.g.f.: A(x)/B(x), where A(x) is e.g.f. of A095351 and B(x) is e.g.f. of A006125. recurrence: a(n) = binomial(n, 2)*2^(binomial(n, 2) - 1) - Sum_{k=1..n-1} binomial(n, k)*2^binomial(n-k, 2)*a(k).
a[1]:=0: for n from 1 to 16 do a[n]:= binomial(n, 2)*2^(binomial(n, 2)-1)-sum(binomial(n, k)*2^binomial(n-k, 2)*a[k], k=1..n-1) od: seq(a[n], n=1..16); # Emeric Deutsch, Dec 18 2004