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