cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A144977 a(n) = A134955(n) - A134955(n-2).

Original entry on oeis.org

1, 1, 3, 7, 16, 41, 108, 301, 881, 2684, 8455, 27444, 91248, 309593, 1068584, 3742171, 13269281, 47561455, 172092274, 627887239, 2307902495, 8539497952, 31786480760, 118960956585, 447413177185, 1690336204778, 6412656031161
Offset: 1

Views

Author

Washington Bomfim, Sep 28 2008

Keywords

Comments

a(n) is the number of hyperforests with n unlabeled nodes without trees of order 2. This follows from the fact that for n >= 2 A134955(n-2) counts the hyperforests of order n with one or more trees of order 2.
The unique hyperforest (without loops) of order 1 is an isolated vertex, so a(1) = 1.
For n >= 2, a(n) - a(n-1) counts hyperforests of order n with components of order >= 3.

Examples

			a(3) = 3 since the only options are 2 hypertrees of order 3, or the forest composed by 3 isolated nodes.
		

Crossrefs

Cf. A134955, A035053 (hypertrees).

Programs

  • 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)); my(v=Vec(Ser(EulerT(u))*(1-x*Ser(u)))); EulerT(vector(#v, n, if(n<>2, v[n], 0)))} \\ Andrew Howroyd, Aug 27 2018