OFFSET
16,1
COMMENTS
A nontrivial cycle has size > 1.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 16..450
Wikipedia, Permutation
FORMULA
E.g.f.: (log(1-x)+x)^8/8!*exp(x).
MATHEMATICA
Drop[CoefficientList[Series[(Log[1 - x] + x)^8/8!*Exp[x] , {x, 0, 50}], x] * Table[k !, {k, 0, 50}] , 16] (* Indranil Ghosh, Jul 16 2017 *)
PROG
(PARI) x = 'x + O('x^30); Vec(serlaplace((-log(1-x)-x)^8/8!*exp(x))) \\ Michel Marcus, Jul 16 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jul 16 2017
STATUS
approved