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