This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A214849 #19 Oct 09 2013 08:31:42
%S A214849 1,1,0,2,8,24,184,1000,8448,66752,670976,6771456,80540800,981684352,
%T A214849 13555365888,193136762624,3042586824704,49558509465600,
%U A214849 877951349198848,16081833643651072,316609129672114176,6439690754082062336,139521103623589068800
%N A214849 Number of n-permutations having all cycles of odd length and at most one fixed point.
%C A214849 a(n) is also the number of n-permutations with exactly one square root. Cf. A003483 which counts n-permutations with at least one square root.
%H A214849 Vincenzo Librandi, <a href="/A214849/b214849.txt">Table of n, a(n) for n = 0..200</a>
%F A214849 E.g.f.: (1 + x)*((1+x)/(1-x))^(1/2)*exp(-x).
%F A214849 a(n) ~ 4*n^n/exp(n+1). - _Vaclav Kotesovec_, Oct 08 2013
%e A214849 a(6)= 184 because we have 144 6-permutations of the type (1,2,3,4,5)(6) and 40 of the type (1,2,3)(4,5,6). These have exactly one square root: (1,4,2,5,3)(6) and (1,3,2)(4,6,5).
%t A214849 nn=22; Range[0,nn]! CoefficientList[Series[(1+x)((1+x)/(1-x))^(1/2) Exp[-x], {x,0,nn}], x]
%K A214849 nonn
%O A214849 0,4
%A A214849 _Geoffrey Critzer_, Mar 08 2013