OFFSET
1,4
LINKS
F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973; see pp. 51-55.
MAPLE
T :=
proc(n)
option remember;
local k, s, A;
if n=0 then return 0 fi;
if n=1 then return u fi;
A := n -> add(subs(u=u^l, T(n/l))/l,
l in divisors(n));
s := (1-u)*A(n-1);
s := s + 1/(n-1)*
add((k+1)*A(k+1)*T(n-1-k), k=0..n-2);
expand(s);
end;
CROSSREFS
KEYWORD
nonn
AUTHOR
Marko Riedel, Dec 25 2014
STATUS
approved