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