A304970 Number of unlabeled hypertrees with up to n vertices and without singleton edges.

1, 1, 2, 4, 8, 17, 39, 98, 263, 759, 2299, 7259, 23649, 79057, 269629, 935328, 3290260, 11714285, 42139053, 152963037, 559697097, 2062574000, 7649550572, 28534096988, 106994891146, 403119433266, 1525466082179, 5795853930652, 22102635416716, 84579153865570

Offset

0,3

Links

Andrew Howroyd, Table of n, a(n) for n = 0..200

Formula

Partial sums of A035053 if we assume A035053(1) = 0.

a(n) = A304937(n) + 1 for n > 0.

Example

Non-isomorphic representatives of the a(4) = 8 hypertrees are the following:
{}
{{1,2}}
{{1,2,3}}
{{1,2,3,4}}
{{1,3},{2,3}}
{{1,4},{2,3,4}}
{{1,3},{2,4},{3,4}}
{{1,4},{2,4},{3,4}}

Prog

(PARI) \\ here b(n) is A007563 as vector
EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}
b(n)={my(v=[1]); for(i=2, n, v=concat([1], EulerT(EulerT(v)))); v}
seq(n)={my(u=b(n)); Vec(1 + (x*Ser(EulerT(u))*(1-x*Ser(u)))/(1-x))} \\ Andrew Howroyd, Aug 27 2018

Crossrefs

Cf. A030019, A035053, A134954, A134955, A134956, A134957, A134958, A134959, A144959, A304386, A304867, A304911, A304912, A304918, A304968, A304970.

Sequence in context: A287776 A137856 A373353 * A090375 A210540 A332398

Adjacent sequences: A304967 A304968 A304969 * A304971 A304972 A304973

Keyword

nonn

Author

Gus Wiseman, May 22 2018

Status

approved