Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #31 Feb 24 2024 14:26:00
%S 0,0,1,2,4,18,99,612,4376,35620,324965,3285270,36462924,440840358,
%T 5767387591,81184266632,1223531387056,19657686459528,335404201199049,
%U 6056933308042410,115417137054004820,2314399674388138810,48717810299204919851,1074106226256896375532
%N Number of permutations of [n] having exactly one adjacent 2-cycle.
%H Seiichi Manyama, <a href="/A370524/b370524.txt">Table of n, a(n) for n = 0..450</a>
%H R. A. Brualdi and Emeric Deutsch, <a href="http://arxiv.org/abs/1005.0781">Adjacent q-cycles in permutations</a>, arXiv:1005.0781 [math.CO], 2010.
%F G.f.: Sum_{k>=1} k! * x^(k+1) / (1+x^2)^(k+1).
%F a(n) = Sum_{k=0..floor(n/2)-1} (-1)^k * (n-k-1)! / k!.
%e The permutations of {1,2,3} having exactly one adjacent 2-cycle are (12)(3) and (1)(23). So a(3) = 2.
%o (PARI) my(N=30, x='x+O('x^N)); concat([0, 0], Vec(sum(k=1, N, k!*x^(k+1)/(1+x^2)^(k+1))))
%o (PARI) a(n, k=1, q=2) = sum(j=0, n\q-k, (-1)^j*(n-(q-1)*(j+k))!/j!)/k!;
%Y Column k=2 of A370527.
%Y Column k=1 of A177248
%Y Cf. A177249, A370426, A370529.
%K nonn
%O 0,4
%A _Seiichi Manyama_, Feb 21 2024