OFFSET
1,3
COMMENTS
Only leaves are labeled.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
EXAMPLE
a(4) = 4: (111), (112), (122), (123).
a(5) = 16: (1111), (1112), (1122), (1123), (1222), (1223), (1233), (1234), (1(11)), (1(12)), (1(22)), (1(23)), (2(11)), (2(12)), (2(13)), (3(12)).
PROG
(PARI) \\ here R(n, k) gives number of colorings with k colors as vector.
EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}
R(n, k)={my(v=vector(n)); v[1]=k; for(n=2, #v, v[n] = EulerT(concat(v[1..n-2], [0]))[n-1]); v}
seq(n)={sum(k=1, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Howroyd, Dec 11 2020
STATUS
approved
