%I #19 Sep 08 2022 08:46:10
%S 1,4,6,16,10,8,28,64,2,8,44,32,52,16,8,256,34,8,76,32,4,16,184,128,4,
%T 16,8,64,232,32,496,1024,2,8,4,32,148,16,8,128,164,16,344,64,8,32,752,
%U 512,4,16,8,64,424,32,16,256,8,32,944,128,976,64,32,4096,2
%N Numerators of the (simplified) rationals n*2^(n - 1)/(n - 1)! .
%H James Burling, <a href="/A248591/a248591_2.pdf">Another Special Rational Sequence</a>
%F a(n) = numerator(n*2^(n - 1)/(n - 1)!).
%F a(n) = numerator(g(1, n)) where g(m, n) = m if m = n; 2*g(m + 1, n)/m otherwise.
%t Table[Numerator[n 2^(n - 1)/(n - 1)!], {n, 1, 70}] (* _Vincenzo Librandi_, Oct 16 2014
%o (PARI) vector(100, n, numerator(n*2^(n - 1)/(n - 1)!)) \\ _Michel Marcus_, Oct 09 2014
%o (Magma) [Numerator(n*2^(n-1)/Factorial(n-1)): n in [1..70]]; // _Vincenzo Librandi_, Oct 16 2014
%Y Cf. A248592 (denominators).
%K frac,nonn
%O 1,2
%A _James Burling_, Oct 09 2014
%E More terms from _Michel Marcus_, Oct 09 2014
|