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