A245503 Number of endofunctions f on [n] such that f^7(i) = f(i) for all i in [n].

1, 1, 4, 21, 142, 1131, 10422, 112015, 1396516, 19702665, 306547426, 5177584809, 94168757916, 1833590759131, 38009888806450, 835064706091431, 19389119390412448, 475039405292487825, 12263445905182200882, 332913448508180564521, 9478703390668813103836

Offset: 0

Author

Alois P. Heinz, Jul 24 2014

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..200

Crossrefs

Column k=7 of A245501.

Programs

Maple

egf:= exp(x*exp(x)+x^2*exp(x)^2/2+x^3*exp(x)^3/3+x^6*exp(x)^6/6):
a:= n-> n!*coeff(series(egf, x, n+1), x, n):
seq(a(n), n=0..25);

Formula

E.g.f.: exp(x*exp(x)+x^2*exp(x)^2/2+x^3*exp(x)^3/3+x^6*exp(x)^6/6).