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 A141590 #39 Sep 16 2024 05:57:57
%S A141590 1,1,-1,1,-1,1,-691,1,-3617,43867,-174611,77683,-236364091,657931,
%T A141590 -3392780147,1723168255201,-7709321041217,151628697551,
%U A141590 -26315271553053477373,154210205991661,-261082718496449122051,1520097643918070802691,-2530297234481911294093
%N A141590 a(n) = numerator of Bernoulli(2*n)/(2*n + 1)!. Bisection of A120082.
%C A141590 Numerators of the Taylor expansion coefficients of the Debye function D(1,x) at the even powers of x.
%H A141590 Peter Luschny, <a href="/A141590/b141590.txt">Table of n, a(n) for n = 0..300</a>
%H A141590 Kevin Acres and David Broadhurst, <a href="https://arxiv.org/1810.07478">Eta quotients and Rademacher sums</a>, arXiv:1810.07478 [math.NT], 2018.
%F A141590 a(n) = A120082(2*n).
%e A141590 Note that a(34) = -125235502160125163977598011460214000388469 but A255505(34) = -4633713579924631067171126424027918014373353.
%p A141590 A141590 := proc(n) A120082(2*n) end:
%p A141590 seq(A141590(n), n=0..30) ; # _R. J. Mathar_, Sep 03 2009
%p A141590 seq(numer(bernoulli(2*n)/(2*n+1)!), n=0..34); # _Peter Luschny_, Dec 03 2022
%t A141590 Table[Numerator[BernoulliB[2*n]/(2*n+1)!], {n,0,35}] (* _G. C. Greubel_, Sep 16 2024 *)
%o A141590 (Magma)
%o A141590 A141590:= func< n | Numerator(BernoulliNumber(2*n)/Factorial(2*n+1)) >;
%o A141590 [A141590(n): n in [0..35]]; // _G. C. Greubel_, Sep 16 2024
%o A141590 (SageMath)
%o A141590 def A141590(n): return numerator(bernoulli(2*n)/factorial(2*n+1))
%o A141590 [A141590(n) for n in range(36)] # _G. C. Greubel_, Sep 16 2024
%Y A141590 Cf. A000367, A001067, A046968, A120082, A255505.
%K A141590 sign,frac
%O A141590 0,7
%A A141590 _Paul Curtz_, Aug 20 2008
%E A141590 Edited and extended by _R. J. Mathar_, Sep 03 2009
%E A141590 Edited by _Peter Luschny_, Dec 03 2022