%I #32 Aug 12 2014 12:36:54
%S 1,4,2,16,8,32,16,256,128,512,256,2048,1024,4096,2048,65536,32768,
%T 131072,65536,524288,262144,1048576,524288,8388608,4194304,16777216,
%U 8388608,67108864,33554432,134217728,67108864,4294967296,2147483648,8589934592,4294967296
%N Denominators of the (reduced) rationals (((n-1)!!)/(n!! * 2^((1 + (-1)^n)/2)))^((-1)^n), where n is a positive integer.
%C Numerators for this sequence are the swinging factorial A163590, starting from n = 1.
%C The terms are all powers of 2 (A000079).
%C It appears that a(2*n) = 2^A101925(n) and a(2*n+1) = 2^A005187(n). - _Robert Israel_, Aug 06 2014
%H James Burling, <a href="/A240988/a240988.pdf">The Special Rational Sequence</a>
%F a(n) = denominator((((n-1)!!)/(n!! * 2^((1 + (-1)^n)/2)))^((-1)^n)).
%F a(n) = denominator(g(1, n)) where g(m, n) = m if m = n; m/(2 * g(m + 1, n) otherwise.
%e For n = 1, a(1) = 1.
%e For n = 2, a(2) = 2 * 2 = 4.
%e For n = 6, a(6) = 2 * 2 * 4 * 2 = 32.
%p f:= n -> denom(((doublefactorial(n-1)) / (doublefactorial(n)*2^((1+(-1)^n)/2)))^((-1)^n)):
%p seq(f(n), n=1..100); # _Robert Israel_, Aug 06 2014
%o (PARI)
%o df(n) = prod(i=0, floor((n-1)/2), n-2*i) \\ Double factorial (n!!)
%o a(n) = denominator(((df(n-1)) / (df(n)*2^((1+(-1)^n)/2)))^((-1)^n))
%o vector(50, n, a(n)) \\ _Colin Barker_, Aug 06 2014
%Y Cf. A163590 (numerators).
%K frac,nonn
%O 1,2
%A _James Burling_, Aug 06 2014
%E More terms from _Colin Barker_, Aug 06 2014