%I #23 Feb 14 2024 16:39:03
%S 1,1,2,6,24,40,80,140,280,504,1008,1848,3696,6864,13728,25740,51480,
%T 97240,194480,369512,739024,1410864,2821728,5408312,10816624,20801200,
%U 41602400,80233200,160466400,310235040,620470080,1202160780,2404321560,4667212440
%N Number of permutations of length n such that numbers at odd positions are monotone and numbers at even positions are also monotone.
%H Robert Israel, <a href="/A257546/b257546.txt">Table of n, a(n) for n = 0..2993</a>
%H Ran Pan, <a href="http://www.math.ucsd.edu/~projectp/warmups/eC.html">Exercise C</a>, Project P.
%F a(n) = 4*binomial(n,floor(n/2))) for n > 4; a(n) = n! for n <= 4.
%F From _Robert Israel_, Apr 30 2015: (Start)
%F G.f.: -3*(1+x)*(1+2*x^2) - 2/x + 2*(2+1/x)/sqrt(1-4*x^2).
%F a(n+2) = (4*(1+n)*a(n) + 2*a(n+1))/(n+3) for n >= 4. (End)
%p f:= gfun:-rectoproc({a(n+2)= 4*(1+n)*a(n)/(n+3) + 2*a(n+1)/(n+3), seq(a(n)=[1,1,2,6,24,40,80][n+1],n=0..5)},a(n),remember):
%p map(f, [$0..100]); # _Robert Israel_, May 12 2015
%t Table[If[n <= 4, n!, 4 Binomial[n, Floor[n/2]]], {n, 31}] (* _Michael De Vlieger_, Apr 29 2015 *)
%o (Magma) [1,1,2,6] cat [4*Binomial(n,Floor(n/2)): n in [4..40]]; // _Vincenzo Librandi_, Apr 30 2015
%Y Cf. A047073, A000142.
%K easy,nonn
%O 0,3
%A _Ran Pan_, Apr 29 2015
%E More terms from _Vincenzo Librandi_, Apr 30 2015